|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: OnClick-Prozedurname in String umwandeln
25. Mai 2006, 18:49
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.
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|