Objekt-Instanz durchreichen

[WoTo]

Hallo Luckie,
vielleicht mußt du das Objekt FotoBook als Referenz übergeben:

Delphi-Quellcode:

procedure TfrmMain.Button3Click(Sender: TObject); 
begin 
  FotoBook.ShowPreview(FotoBook); 
end;

Delphi-Quellcode:

procedure TFotoBook.ShowPreview(var FotoBook: TFotoBook); 
begin 
  with TfrmPreview.Create(nil, FotoBook) do 
    ShowModal; 
end;

Delphi-Quellcode:

constructor TfrmPreview.Create(AOwner: TComponent; var FotoBook: TFotoBook); 
begin 
  inherited Create(AOwner); 
  FFotoBook := FotoBook; 
end; 

procedure TfrmPreview.FormShow(Sender: TObject); 
begin 
  FFotoBook.PageParent := frmPreview; 
  FFotoBook.Display(0); 
end;

Gruß
Woto