Ich möchte einen kleinen PDF-Viewer bauen.
Es sollen mehrere PDFs auf einem Formular dynamisch angezeigt werden.
Dazu habe ich ein PageControls, wo ich dynamisch die Seiten (Pages) erzeuge.
Und danach erzeuge ich auf diesem Tab die Viewer-Componente, in dem Fall TDXPDFViewer von Devexpress.
Delphi-Quellcode:
procedure TF1.AddPage(ACaption: string; AControl: TcxPageControl);
var NewPage: TcxTabSheet;
NewViewer: TdxPDFViewer;
begin
NewPage := TcxTabSheet.Create(AControl.Owner);
NewPage.PageControl := AControl;
NewPage.Caption := ACaption;
NewPage.Name := 'Page' + inttostr(newPage.pageIndex);
NewViewer := TDXPDFViewer.Create(NewPage);
NewViewer.Parent := NewPage;
AControl.activePage := NewPage;
NewViewer.LoadFromFile(Temp_Dateiname_gl);
end;
Das aktuelle Tabsheet bekomme ich raus mit:
Delphi-Quellcode:
Showmessage('PageNAme: ' + Pcontrol.ActivePage.Name + #13#10 +
'PageIndex: ' + inttostr(PControl.ActivePage.PageIndex) + #13#10 +
'TABIndex: ' + inttostr(PControl.ActivePage.TabIndex)
);
Meine Frage ist jetzt, wie spreche ich die Viewer-Komponente, die auf diesem
Tabsheet ist an?
Mit Findcomponent? Wenn ja wie genau?