Ver Mensaje Individual
  #3  
Antiguo 09-08-2017
manelb manelb is offline
Miembro
 
Registrado: mar 2017
Posts: 76
Reputación: 1
manelb Va por buen camino
Fijate en el siguiente código....

En él tengo dos botones conectados al mismo evento de forma que llaman al mismo procedimiento, reconociendo este de que botón procede la llamada.

Código Delphi [-]
implementation

{$R *.dfm}

procedure TForm2.ButtonClick(Sender: TObject);
begin
  lista(sender);
end;

procedure TForm2.lista(sender: TObject);
begin

  if sender=Button1 then
  begin
    showmessage(TButton(sender).caption);
  end
  else begin
    showmessage(TButton(sender).caption);
  end;
end;
Responder Con Cita