Klasse um etwas ergänzen

[Hawkeye219]

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]