hacer referencia al mismo boton q se hace clic
 

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

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

Perfecto!!!!
 

ME AHORRASTE FULL CÓDIGO GRACIAS!!!

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