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

[Muetze1]

1. Dein UFrame ist von TFrame abgeleitet und muss somit auch eine .DFM haben. Dies ist bei dir nicht der Fall
2. In den abgeleiteten Frames muss das erste Schlüsselwort in den DFMs nicht object sondern inherited sein. Dies würde durch eine Ableitung über die IDE (z.B. Objektablage) automatisch geschehen. Wenn du es (anscheinend) "händisch" machst, dann musst du dies selbst eintragen.

Wenn du das alles einhälst, hast du eigentlich keine Probleme mit Frame-Ableitungen. Habe ich mehrfach so in Benutzung...

Nun noch was anderes:

a) Wieso setzt du fMyParam im Constructor von UMyFrame vor dem inherited Aufruf? Deine Ableitungen würden vor deinem Constructor aufgerufen werden und somit wäre das kein Grund. Auch kann die Constructorkette im inherited Aufruf mit dem fMyParam nichts anfangen, da sie ihn nicht kennen. Warum also?

Aber ich denke mal mit den Punkten 1 & 2 löst sich dein Problem in Luft auf.

[paresy]

Mit den Änderungen aus 1./2. funktioniert es.

Kommt ja nicht drauf, wenn man die Sache per Hand erstellt :)

Zitat:

a) Wieso setzt du fMyParam im Constructor von UMyFrame vor dem inherited Aufruf? Deine Ableitungen würden vor deinem Constructor aufgerufen werden und somit wäre das kein Grund. Auch kann die Constructorkette im inherited Aufruf mit dem fMyParam nichts anfangen, da sie ihn nicht kennen. Warum also?

Die Demo war nur schnell zusammengetippt, um das Problem zu zeigen. Die Zeile sollte natürlich unter das inherited.

Vielen Dank nochmal, paresy