Fórum O que faço para apertar um SpeedButton ao apertar a Tecla Enter? #528023

Boa tarde,

Geremias.


O que você pretende fazer ?

Bom, vou deixar uma rotina simples.


implementation

{$R *.dfm}


//Sua função
function Tecla_Preciosnada(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;

//Chama Função
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{ Exemplo de uso: }
if Tecla_Preciosnada(13) then
begin
SpeedButton1.Click;
end;


end;

//Execução do Spedbutton
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage('Você precionou a tecla enter');
end;

end.

Boa tarde,

Geremias.


O que você pretende fazer ?

Bom, vou deixar uma rotina simples.


implementation

{$R *.dfm}


//Sua função
function Tecla_Preciosnada(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;

//Chama Função
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{ Exemplo de uso: }
if Tecla_Preciosnada(13) then
begin
SpeedButton1.Click;
end;


end;

//Execução do Spedbutton
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage('Você precionou a tecla enter');
end;

end.