Eine einfache Methode (ohne mit FindComponent suchen zu müssen) wäre die Klasse TcxTabSheet im Form mit dem gleihem Tyenbezeichner abzuleiten und hier den Viewer zu legen.
Beispiel:
Delphi-Quellcode:
type
TcxTabSheet = class(UnitName.TcxTabSheet)
private
Viewer : TDXPDFViewer;
end;
TF1 = class(TForm)
...
UnitName muss dabei die
Unit sein, die TcxTabSheet enthält.
Erzeugt wird der
Delphi-Quellcode:
procedure TF1.AddPage(ACaption: string; AControl: TcxPageControl);
var NewPage: TcxTabSheet;
begin
NewPage := TcxTabSheet.Create(AControl.Owner);
NewPage.PageControl := AControl;
NewPage.Caption := ACaption;
NewPage.Name := 'Page'*+ inttostr(newPage.pageIndex);
NewPage.Viewer := TDXPDFViewer.Create(NewPage);
NewPage.Viewer.Parent := NewPage;
AControl.activePage := NewPage;
NewPage.Viewer.LoadFromFile(Temp_Dateiname_gl);
end;
So hast du bei TcxTabSheet immer direkt den Viewer verfügbar.