[Lazarus-es] Que enter funcione como tab

Gustavo Adolfo Cruz Martinez gustavo7218 en hotmail.com
Sab Oct 5 06:33:45 CEST 2013


Hola amigos de la lista
Buscando por internet encontré este código:
 
procedure TfPrincipal.AppMessage(var Msg: TMsg; var Handled: boolean);
var
  actual: TWinControl;
begin
  if Msg.message = WM_KEYDOWN then
    if Msg.wParam = VK_RETURN then
    begin
      actual := Screen.ActiveControl;
      if actual.Tag = 0 then
        Msg.wParam := VK_TAB;
    end;
end;
 
y lo llamo de la siguiente manera en el evento OnCreate del formulario
 
application.onmessage;
 
Pero no puedo encontrar la propiedad "onmessage"; en Lazarus cómo se hace.
 
Gracia por vuestro tiempo
 
Gustavo Cruz
 		 	   		  
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20131005/467c4c61/attachment-0002.html>


More information about the Lazarus-es mailing list