Fórum Botão #167797
04/07/2003
0
Bom dia.
Tenho um botão onde o caption dele é ´1´. Como faço para ao apertar a tecla ´1´, o botão seja clicado?
Grato pela atenção.
Tenho um botão onde o caption dele é ´1´. Como faço para ao apertar a tecla ´1´, o botão seja clicado?
Grato pela atenção.
Hacson Menezes
Curtir tópico
+ 0
Responder
Posts
04/07/2003
Tiagodelatorre
//Mude a Propriedade KeyPreview do Formulario para True
//Evento on Key Pres do Formulário
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TButton Then
if TButton(Components[i]).Caption =Key Then
TButton(Components[i]).OnClick:=nil;
end;
//Evento on Key Pres do Formulário
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TButton Then
if TButton(Components[i]).Caption =Key Then
TButton(Components[i]).OnClick:=nil;
end;
Responder
Gostei + 0
07/07/2003
Rodrigo_rcp
1) No Object Inspector coloque a propriedade KeyPreview do form = true
2) procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = ´1´ then
Button1.Click;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)