Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Utilizar el teclado (https://www.clubdelphi.com/foros/showthread.php?t=76789)

lucas05 28-11-2011 02:57:14

Utilizar el teclado
 
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 28-11-2011 05:09:16

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 28-11-2011 08:42:26

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] 28-11-2011 13:06:26

Cita:

Empezado por lucas05 (Mensaje 419636)
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 28-11-2011 14:45:42

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

Gracias.


La franja horaria es GMT +2. Ahora son las 10:37:31.

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