TObject.Name ????

[sh17]

wenn Deine Objekte über Namen verfügen, kannst Du es so machen:

Delphi-Quellcode:

procedure OnClick(Sender : TObject);
begin
  if Sender is TObjectXY then
  begin
    if TObjectXY(Sender).Name = 'bla' then
      tuwas;
  end;


end;