Hallo Benjamin,
Zitat:
Class Hacks sind keine Option!
Ich hoffe, du meinst keine
Class Helper:
Delphi-Quellcode:
type
TControlHelper = class helper for TControl
public
procedure FadeIn;
end;
procedure TControlHelper.FadeIn;
begin
ShowMessage ('Hello from ' + ClassName);
end;
Danach verfügen alle TControl-Nachfolger über die neue Methode.
Hier noch ein interessanter
Artikel zum Thema "Class Helper".
Gruß Hawkeye
[edit=Phoenix]Url korrigiert. Die hatte sich wohl geändert. Mfg, Phoenix[/edit]