( José Luis Freire)
var
x,tecla:integer begin for x:=0 to ComponentCount-1 do if (Componentes[x] is TEdit) and (TEdit(Components[x]).Focused=True)then PostMessage(TEdit(Components[x]).handle,WM_KEYDOWN,tecla,0);
Donde tecla almacenará VK_RETURN, VK_LEFT, o la virtual que se quiera.
Evidentemente sólo es válido para los componentes de la clase TWinControl y habrá que poner tantos “is loquesea” como utilice.
Ważne artykuły