Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
5. Okt 2007
Entweder du instanzierst das helper object oder du musst eine Klassenmethode verwenden:
type
THelper = class(TObject)
class procedure AddToTree(disp: IADs);
end;
var
trUser: TTreeView;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
5. Okt 2007
Dein helper object hat den falschen Typ, besser so:
uses
SysUtils,
Classes,
ActiveDs_TLB,
adshlp,
Variants,
ComCtrls;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
5. Okt 2007
Hallo,
hast du übersehen, dass AddToTree() eine procedure of object sein muss, damit du diese procedure als CallBack in AdsEnumerateObjects() verwenden kannst? Bastel dir ein helper object und mache deine freien Routinen zu Methoden.
Grüße vom marabu