Botão

Delphi

04/07/2003

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.


Hacson Menezes

Hacson Menezes

Curtidas 0

Respostas

Tiagodelatorre

Tiagodelatorre

04/07/2003

//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;


GOSTEI 0
Rodrigo_rcp

Rodrigo_rcp

04/07/2003

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;



GOSTEI 0
POSTAR