Hallo,
Delphi-Quellcode:
with TDialogRegisterPage.Create(self) do
begin
Caption := AName;
PropKinds := APropKinds;
Parent := self;
PageControl:= self;
end;
Das
self bei
Parent:= self bezieht sich durch das
with ja auf dein TDialogRegisterPage,
statt auf TDialogRegister.
Löse das durch eine lokale Variable.
Delphi-Quellcode:
var
DialogRegisterPage: TDialogRegisterPage;
begin
DialogRegisterPage:= TDialogRegisterPage.Create;
with DialogRegisterPage do
begin
Caption := AName;
end;
Heiko