asigarnar tecla a un procedimiento o funcion

[douglas]

hola chicos perdon que siga molestando, pero tengo una pequeña duda.
yo se que ustedes soy muy finos y colaboradores, espero no ponerlos en molestia, la duda que tengo es la siguiente:

tengo un boton el cual es el encargado de compilar una serie de instrucciones, e visto programas que tienen la opcion del boton o pulsar cualquier tecla de las f1, f2..f12. como lo puedo realizar.
de antemano les agradezco cualquier tipo de ayuda que puedan darme.

[marcoszorrilla]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_F1 then
ShowMessage('Pulsó F1');
end;

En vez de ShowMessage, escribe el código que proceda.

Un Saludo.

[dec]

Hola,

Las "acciones" ("ActionList", pestaña "Estándar" o "Additional" de la paleta de componentes) para esto vienen muy bien, puesto que permiten, precisamente, asignar un "acceso directo" a una acción determinada, y estas a su vez ser asiganadas a la "acción" de un botón, por ejemplo.

Eso siempre que nos movamos dentro de nuestra aplicación. Si queremos que los accesos directos funcionen incluso si nuestra aplicación no tiene el foco del usuario, podemos usar lo que se conoce como "hotkeys". Encontrarás información en los foros sobre ambas cosas, acciones y "hotkeys".

[douglas]

Que Bien Funciona Que Buenas Personas Son, Miren Me Da Mucha Pena, Pero Comopueco Mezclar La Tecla Control Y La Tecla G

[Lepe]

Se deduce que usas la forma de Marcos:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (uppercase(key) = 'G') then
ShowMessage('Pulsó Ctrl + G');
end;

Saludos