Evento onClick
 

Hola a tod@s,

Tengo en una aplicación tres botones distintos que basicamente tienen que hacer lo mismo. Lo que he decidido es escribir en el Boton1 el código que necesito (en el evento OnClick) y los otros dos redirigir su correspodiente evento onClick al del boton1.

Cuando dije que básicamente tienen que hacer lo mismo era porque en cada uno de ellos hay una pequeña excepción, por lo que pretendo saber cual de ellos ha sido pulsado una vez este dentro del evento OnClick.

Es posible tal hazaña y de ser así de que manera puede hacerse???

Saludos

Me imagino que en los eventos de Boton2 y Boton3 de onclick, le asignas boton1.onclick, bueno entonces tienes que hacer lo siguiente

Tambien puedes declarar un evento general no necesariamente tiene que estar asociado a ningun objeto, y se lo puedes asignar a los tres botones

OK

Debería ser

if Sender = Boton1 then

// Saludos

Ahora mismo iba a escribir lo mismo que tu Roman.

Gracias a los dos, de esta manera tan sencilla puedo adecuar el funcionamiento del programa en función del botón pulsado.

Gracias de nuevo.

Hola,
sólo quiero comentar que también puedes asignarle valores distintos a la propiedad Tag de cada botón,
con lo que ahorrarás líneas de código.

Ejemplo suponiendo que los botones son TButton:

Código Delphi [-]
procedure TForm1.Boton1Click(Sender: TObject);
begin
  case (Sender as TButton).Tag of
    1: query1.Insert;
    2: query2.Insert;
    3: query3.Insert;
  end;
  showmessage(IntToStr((Sender as TButton).Tag));
end;

Salu2.