Dynamisch erzeugte Komponenten ansprechen

[josef-b]

Danke für die schnellen Anregungen und Hilfe

Habe es jetzt mit Component gemacht:

Delphi-Quellcode:

var
ActiveViewer: TDxPDFViewer;
ActiveTab: TcXTabsheet;

Delphi-Quellcode:

procedure TF1.SetActiveViewer;
var i : Integer;
begin
ActiveTab := PControl.ActivePage;

for i := 0 to ActiveTab.ComponentCount - 1 do
  begin
  if ActiveTab.Components[i] is TDxPDFViewer then
    begin
    ActiveViewer := ActiveTab.Components[i] as TDXPDFViewer;
    ....
    end;
  end;
end;