[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