Tform.Create überladen

[H3llsing]

Hallo zusammen,

ich weiß dieses Thema wurde schon x mal behandelt, aber mein delphi möchte einfach den Inherited befehl nich ausführen

Zur Vorgeschichte: Ich habe eigentlich das gleiche wie in diesem Thread vor.
-> ich besitze eine Tform
-> Möchte einen weiteren Create schreiben um verschiedene Designs anzupassen.

hier mein Code:

Delphi-Quellcode:

type
  TModeType = (mt_default,
               mt_edit);

  TfrmCreateThema = class(TForm)
  ...
  private
    FModeType: TModeType;
    Fbearbeiter: String;
    procedure SetModeType(const Value: TModeType);
    procedure SetBearbeiter(const Value: String);
  public
    property ModeType   : TModeType read FModeType write SetModeType;
    property Bearbeiter : String read FBearbeiter write SetBearbeiter;
    Constructor Create(AOwner: TComponent; Mode : TModetype;bearbeiter :string); reintroduce;overload;
  end;

...

constructor TfrmCreateThema.Create(AOwner: TComponent; Mode : TModetype;bearbeiter :string);
begin
  inherited create(AOwner);  // <---- Hier knallts mit Zugriffsverletzung

  if mode <> mt_default then
    setModeType(Mode);
  if mode = mt_edit then
  begin
    setBearbeiter(bearbeiter);
    Height := 240;
  end;
end;

So nun habe ich das ganze mit und ohne Reintroduce ausprobiert gleiches Ergebnis. Immer knallts beim
inherited create(AOwner); mit zugriffsverletzung :/


Was mach ich falsch ?!

EDIT:
als aOwner gebe ich beispielsweise die Mainform an.

[DeddyH]

Das kann ich nicht nachvollziehen. Ich nehme an, das Formular wird dynamisch erzeugt?

[H3llsing]

ja per Button mit

Delphi-Quellcode:

var
  frmCreateThema :TfrmCreateThema;
begin
  frmCreateThema.Create(self,mt_edit,DBEdit_Bearbeiter.Text);

oder
frmCreateThema.Create(frmMain,mt_edit,DBEdit_Bearbeiter.Text);

[DeddyH]

frmCreateThema := TfrmCreateThema.Create(self,mt_edit,DBEdit_Bearbeiter.Text);

[H3llsing]

ich depp xD

muss natürlich so lauten

  frmCreateThema := TfrmCreateThema.Create(self,mt_edit,DBEdit_Bearbeiter.Text); Danke dass du nichts finden konntest ;D;D

edit:
da war er schneller

[DeddyH]

Zitat von H3llsing:

edit:
da war er schneller

[shmia]

Bei einem Formular ist der Konstruktor virtuell.
Deshalb würde ich stark davon abraten weitere Konstruktoren einzuführen.
Folgender Code wäre nämlich nicht in der Lage, deinen Konstruktor aufrurufen,
einfach weil er einfach nicht bekannt ist:
Application.CreateForm(TfrmCreateThema, frmCreateThema);
Man kann einen weiteren Konstruktor bei einem Formular einführen, aber man sollte es nicht tun.
Man kann hier Parallelen zu Java Beans ziehen. Dort gibt es ebenfalls nur einen öffentlichen, virtuellen Konstruktor.


Es gibt im Prinzip 3 Wege um einem Objekt Informationen mitzugeben:

1. Konstruktor
2. über ein Property
3. Methodenaufruf

Die Datenübergabe über Properties ist der Standardweg wenn es einen virtuellen Konstruktor gibt..

[SirThornberry]

Es spricht eigentlich nichts dagegen einen neuen Constructor einzuführen bei einer Ableitung von TComponent (trifft auch auf alle anderen Klassen mit virtuellem Constructor zu). Allerdings sollte man dann nicht reintroduce verwenden. Stattdessen sollte man den alten Constructor auch überschreiben und in diesem den neuen Constructor mit Standardparamtern aufrufen um sicherzustellen das der Nachfahre weiterhin wie gewohnt genutzt werden kann.

[DeddyH]

Ich hatte es so verstanden, dass gerade der Aufruf des geerbten Konstruktors nicht möglich sein soll. Über Sinn und Unsinn möchte ich hier nicht diskutieren.

[SirThornberry]

Ja, ich vermute der andere constructor sollte nicht verwendet werden weil sonst (wenn man diesen nicht auch überschreibt) etwas uninitialisiert bleibt.