Form-Ableitungen

[rbest]

Hallo Kollegen,
irgendwas mache ich falsch bei meinen Klassendeklarationen. Im OnActivate bringt Delphi dauernd ein inherited. Meine Forms leite ich wie folgt ab: form_base -> form_norm -> frmET_Main

Delphi-Quellcode:

  TFormNorm = class(TFormBase)
    _StatusBar: TStatusBar;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);

2. Ableitung:

Delphi-Quellcode:

  TfrmET_Main = class(TFormNorm)

Besten Dank für die Hilfe

[Christian Seehase]

Moin rbest,

Zitat:

Zitat von rbest

Im OnActivate bringt Delphi dauernd ein inherited.

was willst Du uns damit sagen? :gruebel:

[rbest]

Hätt ich das auch sagen sollen? :oops:
Ein Kollege hier behauptet, meine Klasse sei faul, denn OnActivate sei nur ein Zeiger und darf deswegen im Ereignis kein inherited enthalten.

[Robert_G]

Na klar darf es das, es wäre ja sonst kein richtiges OOP mehr. ;)
kleines Beispiel:
Erstelle dir ein Form mit irgendeinem Code im OnActivate. Jetzt klickst du mal auf File\New\Others, wählst deinen Projektnamen und dein Form.
Inherited muss angeklickt sein!
Jetzt hast du 2 identische Forms in deinem Projekt. Form2 (die Ableitung) hat aber ein inherited im OnActivate, d.h. es läuft erst der Code aus Form1 bevor der aus Form2 läuft.