Frame von anderem Frame (nicht visuell) ableiten

[paresy]

Hallo Leute,

ich wollte allen meinen Frames die ich im Programm habe eine gleiche Grundlage geben,
sodass z.B. bestimmte Programmvariablen schon im Protected Teil vorahanden sind. (Sonst hätte pro Frame viel redundanten Code)
Die werden in einem eigenen Constructor übergeben.

Das Problem ist, dass Delphi die Frames nicht mehr öffnet (Design), sobald Sie nicht von genau 'TFrame' abgeleitet wurden.

Delphi-Quellcode:

 type
  TMyBaseFrame=class(TFrame)
   private 
    //...
   protected
    //...
   public
    //...
  end;

  TMyNewFrame=class(TMyBaseFrame)

Das würde die Delphi IDE dazu veranlassen, das Frame als Form zu öffnen, was fehlende Property Warnung zu folge hat und die DFM zerschiesst.
Anscheinded prüft die IDE nicht, dass TMyBaseFrame von TFrame abgeleitet, sondern erwartet für Frame ein TFrame.

Folgender Trick hilft:

Delphi-Quellcode:

 type
  TMyBaseFrame=class(TFrame)
   //...
  end;

  TFrame = TMyBaseFrame;
  TMyNewFrame=class(TFrame)

Schon ist Delphi glücklich und ich habe keine Fehlermeldungen.

Anbei ist noch ein Demoprojekt mit vollen Sourcecode.

Bei Interesse kann das auch in die CodeLib, oder falls ihr eine bessere Idee habt, wäre ich darüber dankbar.

Grüße, paresy