OnClick de um botao

Question

Ao ativar o evento on click de um botao d� para tratar e saber se o que ativou esse evento foi um click do mouse ou outyra acao tipo precionar enter ou ter o seu evento chamado por um outro evento?

Motta · Answer

use o Sender !![code:1:f470f64bcd]unit Unit1;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ExtCtrls, StdCtrls, Buttons;type  TForm1 = class(TForm)    Button1: TButton;    SpeedButton1: TSpeedButton;    procedure Button1Click(Sender: TObject);    procedure SpeedButton1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(Sender.ClassName);end;procedure TForm1.SpeedButton1Click(Sender: TObject);begin  Button1Click(Sender);end;end.[/code:1:f470f64bcd]...

Neoramza · Answer

Mas como fazer para saber se o botao foi acionado pela tecla espaco ou entre ou se foi pelo click do mouse?...

Ipc$ · Answer

Mas a� o Sender n�o vai ser o pr�prio TButton?...

Paulo_amorim · Answer

Ol�Pode-se colocar um evento no OnMouseDown para saber se veio do mouse...At�+...

F�rum OnClick de um botao #248332