Como se usa el evento KeyPress en Lazarus??

[aviatorz]

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
if tecla='F1' then
begin
TabControl1.TabIndex:= 1;
end;

[mightydragonlor]

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]

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


procedure Tfrmprincipal.Action1Execute(Sender: TObject);
begin
PageControl1.TabIndex:=0;
end;