Ein simpler class Helper sollte auch gehen.
Da ich keinen TcxTabSheet habe, kann es aber nicht testen.
Delphi-Quellcode:
TTcxTabSheetClassHelper = class Helper for TcxTabSheet
private
function GetViewer: TDXPDFViewer;
public
property Viewer: TDXPDFViewer read GetViewer;
end;
Wenn sichergestellt ist, dass das erste Control im Tabsheet der Viewer ist.
Delphi-Quellcode:
function TTcxTabSheetClassHelper.GetViewer: TDXPDFViewer;
begin
Result := Controls[0] as TDXPDFViewer
end;
Wenn die Positon nicht bekannt ist, werden die Controls durchsucht:
Delphi-Quellcode:
function TTcxTabSheetClassHelper.GetViewer: TDXPDFViewer;
var
C: TControl;
I: Integer;
begin
for I := 0 to ControlCount - 1 do
begin
C := Controls[I];
if C is TDXPDFViewer then
Exit(C as TDXPDFViewer);
end;
Result := nil;
end;