Chciałem aby zdarzenie Buttona (click) zwracało jakąś właściwość zawartą w tym butonie, jednak bez odwoływania się do nazwy egzemplarza tego buttona.
Więc napisałem:
procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text:=Self.Caption;
end;
Ku mojemu zaskoczeniu procedura zwraca nazwę ale nie buttona tylko formatki (a więc zwraca string "Form1")
Co muszę zrobić aby Self reprezentowało Button który wywołuje zdarzenie a nie Formę.