TElement

Mam jeszcze jedno pytanko... a mianowicie, czy da się jakoś rozpoznać element, który został kliknięty? Chodzi mi o to, że np. do OnClick w TLabel i TButton będzie taka sama procedurka? (Tzn., to się da, ale...) chodzi o procedurkę, która rozpozna, czy został kliknięty Button czy Label?

W OnClick:

if Sender = Button1 then ShowMessage('Wciśnięto Button')
  else ShowMessage('Wciśnięto Label');

Raczej powinno być:

If Sender is TLabel then ....
If Sender is TButton then ....

A niewiecie może jak zrobić coś takiego, ale żeby działało? :

var Obiekt: TObject;
begin
obiekt:=sender;

(Sender as obiekt).caption := 'Zmieniono nazwę'

<font color="green">var Obiekt: TObject;
begin
obiekt:=sender;

(Sender as obiekt).caption := 'Zmieniono nazwę'</span>

To jest bez sensu.. rzutujesz Sender na typ obiekt, chociaż już nim jest. Od razu bezpośrednio sprawdzaj na Sender..

if Sender is TLabel then (Sender as TLabel).Caption := 'To jest Label';

Klasa TObject nie ma własciwości Caption.