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.