Pulsar un speedbutton sin utilizar el ratón
Necesito que el sppedbutton se presione cuando yo oprima un numero, es para una calculadora.
1 respuesta
Respuesta de armageddon
En la forma que te esta sirviendo de ventana, partimos de la suposición que tines speedbuttons en la forma yq ue cada uno hace algo en el object inspector, vas a eventos y seleccionas el procedimiento KyDown (de la forma) y adicionas un ciclo case:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Char(Key) of
'0': self.SpeedButton1Click(nil);
'1': self.SpeedButton2Click(nil);
.
.
.
.
.
.
'9': self.SpeedButton10Click(nil);
// si tines signos u operaciones anidas luego aqui.
.
.
.
.
else
ShowMessage('Tecla No Valida');
end;
end;
Éxitos.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Char(Key) of
'0': self.SpeedButton1Click(nil);
'1': self.SpeedButton2Click(nil);
.
.
.
.
.
.
'9': self.SpeedButton10Click(nil);
// si tines signos u operaciones anidas luego aqui.
.
.
.
.
else
ShowMessage('Tecla No Valida');
end;
end;
Éxitos.
