keycode

[bolofe]

¿como puede hace que cuando se haga click con el raton en una etiqueta de mi formulario se invoque al evento keydown del formulario (formkeydown) con la tecla F2?

tengo programado un evento en formkeydown para la tecla F2, quiero que se ejecute tambien al hacer click en una determinda etiqueta del formulario.

Saludos

[marcoszorrilla]

Una forma puede ser el envío de la pulsación F2 al pulsar sobre la etiqueta:


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage('Pulso F2');
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
keybd_event(Vk_F2,0,0,0);
end;



Un Saludo.