self ist zum Zeitpunkt des Create noch nicht vorhanden (noch kein
Handle). Somit schlägt das im Create fehl:
Delphi-Quellcode:
constructor TDialogRegister.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
AddPage('Titel1'); // <- geht das schief
AddPage('Titel2'); // <- und geht das schief
end;
Das kannst du frühestens in CreateWnd tun.
Delphi-Quellcode:
procedure TDialogRegister.CreateWnd;
begin
inherited;
AddPage('Titel1');
AddPage('Titel2');
end;
Gruß oki