26/08/2004

OnClick de um botao

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?


Neoramza

Respostas

26/08/2004

Motta

use o Sender !!

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.



Responder Citar

26/08/2004

Neoramza

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


Responder Citar

26/08/2004

Ipc$

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


Responder Citar

26/08/2004

Paulo_amorim

Olá

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

Até+


Responder Citar