Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)
-   -   Como se usa el evento KeyPress en Lazarus?? (https://www.clubdelphi.com/foros/showthread.php?t=75726)

aviatorz 14-09-2011 22:08:30

Como se usa el evento KeyPress en Lazarus??
 
Mi idea es que cuando el usuario presione una tecla por ejemplo F1, cambie la propiedad TabIndex de un PageControl, Alguien aqui ha utilizado el evento KeyPress?

Algo como
Código Delphi [-]
if tecla='F1' then
begin
     TabControl1.TabIndex:= 1; 
end;

mightydragonlor 14-09-2011 22:28:53

La forma mas simple es con TActionList, creas una acción y le asignas en ShrotCut el F1, luego en el formulario pones en Action el ActionList que tiene el F1, en la acción que creaste pones el código que necesites cuando ejecuten la acción.

aviatorz 14-09-2011 23:15:03

Oye probe el TActionList, funciona perfectamente,ya una vez puesto el shortcut, todo es darle el evento Execute y listo.

Gracias por la ayuda mightydragonlor

Código Delphi [-]
procedure Tfrmprincipal.Action1Execute(Sender: TObject);
begin
  PageControl1.TabIndex:=0;
end;


La franja horaria es GMT +2. Ahora son las 16:30:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi