OnClick-Prozedurname in String umwandeln

[jbg]

Das kann man so lösen (pseudo-code)#

Delphi-Quellcode:

var
  m: TMethod;
begin
  m := TMethod(Form1.OnClick);
  ShowMessage( TObject(m.Data).MethodName(m.Data) );
end;

Das funktioniert aber nur, wenn die Methode published ist, also auch mittels des ObjectInspectors zugewiesen werden kann.