Objekt das auf einem TTabSheet liegt.

[Sharky]

Zitat von Evian:

... Aber wie komme ich an die Scrollbox des TabSheets ran?!

Hai Evian,

hier mal ein Beispielcode der die Scrollbox des Aktiven TabControls von deinem PageControl sucht und dann alle Controls die auf der Scrollbox liegen in eine Listbox einträgt:

Delphi-Quellcode:

procedure TForm1.btn_ShowTabControlsClick(Sender: TObject);
var
  ndx: integer;
  controlname: string;
  scrollbox: TWinControl;
begin
  lb_TabControls.Clear;
  scrollbox := nil;
  for ndx := 0 to Pred(PageControl1.ActivePage.ControlCount) do
  begin
    if (PageControl1.ActivePage.Controls[ndx] is TScrollBox) then
    begin
      scrollbox := TWinControl(PageControl1.ActivePage.Controls[ndx]);
      break;
    end;
  end;
  if (Assigned(scrollbox)) then  // Wenn eine Scrollbox gefunen wurde
  begin
    for ndx := 0 to Pred(scrollbox.ControlCount) do // Alle Controls durchlaufen
    begin
      controlname := scrollbox.Controls[ndx].Name;
      lb_TabControls.Items.Add(controlname);
    end;
  end;
end;