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
Última edición por inetplus fecha: 16-03-2004 a las 23:38:49.
|