Utilizar el teclado

[lucas05]

Hola, quiero darle mas uso al teclado, para no depender tanto del mouse. Por ejemplo tengo un button que cuando le hago clic llama a otro formulario, como puedo hacer para lograr lo mismo pero presionando las teclas Ctrl+F

Muchas Gracias

[ecfisa]

Hola Lucas.

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:= True;  //Teclado recibe evento de teclado antes que el control activo (configurable desde Object Inspector)
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Lo(Key) = Ord('F')) then
   BotonQueLLamaOtroForm.Click;  
end;
...

Saludos.

[olbeup]

También puedes ponerle en el caption del botón, un "&" para que cuando pulses Alt + F, simule que has pulsado con el ratón, en tiempo de diseño, pega un botón y pones esto o el título que quieras, pero con &F, para que cuando pulses Alt + F, realize el Click del ratón.

Código Delphi [-]
Button1.Caption := 'Otro &Formulario';

Un saludo.

[Neftali [Germán.Estévez]]

Empezado por lucas05

Hola, quiero darle mas uso al teclado, para no depender tanto del mouse. Por ejemplo tengo un button que cuando le hago clic llama a otro formulario, como puedo hacer para lograr lo mismo pero presionando las teclas Ctrl+F

Aparte de las opciones ya comentadas, yo utilizo para estas cosas una TActionList + TAction.
Las TAction ya poseen la propiedad para asignar la ShortCut, así que le asignas "CTRL+T" y programas el código que necesites.

[lucas05]

Hola, gracias por las soluciones. Las aplique y funcionan.

Gracias.