OnClick de um botao
26/08/2004
0
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
Curtir tópico
+ 0
Responder
Posts
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
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
26/08/2004
Paulo_amorim
Olá
Pode-se colocar um evento no OnMouseDown para saber se veio do mouse...
Até+
Pode-se colocar um evento no OnMouseDown para saber se veio do mouse...
Até+
Responder
Clique aqui para fazer login e interagir na Comunidade :)
