Array
(
)

OnClick de um botao

Neoramza
   - 26 ago 2004

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
   - 26 ago 2004

use o Sender !!

#Código


unit Unit1;

interface

uses
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.



Neoramza
   - 26 ago 2004

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


Ipc$
   - 26 ago 2004

Mas aí o Sender não vai ser o próprio TButton?


Paulo_amorim
   - 26 ago 2004

Olá

Pode-se colocar um evento no OnMouseDown para saber se veio do mouse...

Até+