hacer referencia al mismo boton q se hace clic

[_CALI]

Hola Amigos, Pues tengo una gran interrogante, como puedo hacer referencia a las propiedades del mismo control q hago clic, ejm:

TForm1.Button1OnClick(sender: TOBject);
begin
Showmessage(Button1.Caption) ; // no quiero esto
end;
ademas ActiveControl q solucion me dan

Muchas Gracias de Antemano

[roman]

El parámetro Sender es el botón que genera el evento:

Código Delphi [-]
TForm1.Button1OnClick(sender: TOBject);
begin
  Showmessage((Sender as TButton).Caption) ;
end;

// Saludos

[_CALI]

Empezado por roman

El parámetro Sender es el botón que genera el evento:


Código Delphi [-]
TForm1.Button1OnClick(sender: TOBject);
begin
Showmessage((Sender as TButton).Caption) ;
end;





// Saludos

ME AHORRASTE FULL CÓDIGO GRACIAS!!!

[[xEsk]]

Hola, otra forma de hacer lo mismo, nunca está de más conocer formas alternativas:

Código Delphi [-]
procedure TForm1.Button1OnClick(sender: TOBject);
begin
  Showmessage(TButton(Sender).Caption) ;
end;

Saludos