Ändern der Klassenhierarchie

[sakura]

So, jetzt mal ein etwas komplizierter Beitrag, der doch sehr einfach ist. Die meisten von Euch arbeiten ja doch mit der VCL - deswegen haben wir ja auch Delphi Nachdem ich mich ein wenig mit .NET beschäftigt habe, habe ich über die sog. Helper-Classes gelesen und fand die recht "nett". Irgendwie muss das doch auch mit den aktuellen Delphi-Versionen möglich sein, oder?

Ja, es ist, wenn auch mit ein paar Einschränkungen. So können zum Beispiel keine neuen Felder (Klassen-/Objekt-Variablen) eingefügt werden, da Delphi die Objektgröße bereits zur Kompilierungszeit festlegt. Ansonsten kann man einiges mit Hilfe der folgend beschriebenen Technik erreichen.

Zielsetzung

Alle Controls, welche intern mit der Botschaft WM_SETTEXT (TLabel, TForm, TPanel, ...) arbeiten sollen erweitert werden. Wenn der Text einer dieser Controls gesetzt wird, so soll dieser nach jedem Vorkommen Zeichenkette "[dp]" durchsucht werden. Jedes Vorkommen wird anschließend mit "Delphi-PRAXiS" ersetzt.

......

[Shaman]

Hm, und was ist mit virtuellen Methoden? Kann man die nicht überschreiben?

Delphi-Quellcode:

type
  TControlEx = class(TControl)
  protected
    procedure SetEnabled(Value: Boolean); override;
  end;

... wird bei mir nicht aufgerufen

Gruss
Shaman

[Shaman]

Ich würde einfach noch gerne wissen, was denn genau alles möglich ist. Bis jetzt konnte ich nämlich nur Message-Handler für WM_* Botschaften erweitern, und das ist doch ein biiiisschen wenig

Gruss
Shaman