FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#8
|
|||
|
|||
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. |
|
|
|