Datos objeto

[[Lepe]]

Código Delphi [-]

procedure TForm1.clic(Sender: TObject);
begin
with TPanel(Sender) do 
 showmessage('Se ha presionado en '+TPanel(Sender).Name);
end;

En realidad no hace falta el .Tag, ya que el "Sender" es el propio botón donde se ha hecho clic.

Es un método ampliamente usado en Delphi. Si tienes un TEdit, en su evento OnClick el Sender es ese Edit en Cuestión, Si tienes un Form, en el evento OnClick, el parámetro Sender es ese Form.

Como en Delphi todo se basa en la Clase TObject (casi todo hereda de TObject), se puede pasar cualquier instancia de objeto (Tedit, Tbutton, Tpanel, TForm, etc) camuflado en el parámetro Sender.

Por definición: el Sender es el objeto que ha lanzado el evento.

Saludos

[linuz]

Muchas gracias a todos por vuestra ayuda, ha funcionado a la perfección.
Os debo una cerveza o un vinito así que pasaros por la taberna que esta vez invito yo a una ronda.


Un saludo.