TECLA <ENTER> en TEdit

[jachguate]

ups... no es vk_enter, es vk_return. He visto la windows.pas y no tiene un tipo definido... supongo que el compilador usará un tipo byte o single para representarla, dado su valor... aunque quizas la directiva {$externalsym} afecte el comportamiento normal y la declare como word... que es como me imagino que está en las cabeceras del API.

Habrá que ver...

[inetplus]

Estuve investigando sobre el tema y de esta forma es solucionable, pero no dentro del evento OnKeyPress:


procedure TFCTarjetas.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;



Procedure TFCTarjetas.AppMessage(var Msg: TMSg; Var Handled:Boolean);
var
actual : TWincontrol;
begin
if Msg.message = WM_RETURN then
begin

Actual := Screen.ActiveControl;
if Actual is TCustomEdit then
.....

El problema es que aqui no puedo controlar un TEdit en particular.

un saludo y Gracias