OnClick-Prozedurname in String umwandeln

[faux]

Hallo!

Ich erzeuge auf meiner Form massenhaft Buttons und da wollte ich mir aus Debuggründen im Hint jeden Buttons den Namen der OnClick-Prozedur anzeigen lassn. Wie mache ich das am Besten? Hint := String(OnClick); geht ja mal nicht.

Grüße
Faux

[turboPASCAL]

Delphi-Quellcode:

procedure TForm.ButtonClick(Sender: TObject);
begin
  showmessage((Sender as TButton).Name);
end;

An sonsten würde ich einfach die OnClick überschreiben und dann dort den Hint ausgeben wenn du die Buttons dyn. erstellen willst.

[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.

[faux]

Zitat von jbg:

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

Hab sie jetzt mal nach published gesetzt (in der Form). Weiß nicht ob man das darf oder nicht? Jedoch wird mit ein Leerer String zurückgegeben. :S

Delphi-Quellcode:

OnClick := PressActionKey;
{$IF Defined(DEBUG)}
ShowHint := True;
Hint := IntToStr(Tag) + ' - ' + TObject(TMethod(OnClick).Data).MethodName(TMethod(OnClick).Data);
{$IFEND}

Grüße
Faux

[Lannes]

Hallo,

ersetz mal die Zeile:
Hint := IntToStr(Tag) + ' - ' + TObject(TMethod(OnClick).Data).MethodName(TMethod(OnClick).Data); durch:
Hint := IntToStr(Tag) + ' - ' + TObject(TMethod(OnClick).Data).MethodName(TMethod(OnClick).Code); dann sollte es funktionieren.