Hallo zusammen,
irgendwas essenzielles hab ich offensichtlich nicht verstanden.
Ich habe eine Basisklasse, von der weitere Formulare abgeleitet werden.
Code:
type
TBaseClass = Class (TForm)
constructor create (aOwner: TComponent); override;
protected
test: integer;
end;
constructor TBaseClass.create (aOwner: TComponent);
begin
inherited create (aOwner);
test := -1;
end;
Nun habe ich in der von TBaseClass abgeleiteten Klasse ein onCreate definiert:
Code:
type
TMainClass = Class (TBaseClass)
procedure FormCreate (Sender: TObject);
end;
procedure TMainClass.formCreate (Sender: TObject);
begin
// ausgabe von test??? sollte -1 sein
end;
Ich hätte gedacht, dass, vom Compiler, TMainClass.create aufgerufen wird, und das ruft, automatisch, TBaseClass.create auf, ist aber nicht so.
Wo liegt mein Denkfehler?
Viele Grüße
Marco