Suche bestimmte Menü-Komponente (ähnlich TPageControl)

[RavenIV]

Zitat von shmia:

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  PageControl1.ActivePageIndex := Node.Index;

  // Bei allen Seiten ausser der aktiven Seite Enabled auf False setzen, damit
  // man mit der Tabulator-Taste nicht durch unsichtbar Controls durchsteppt.
  for i := PageControl1.PageCount - 1 downto 0 do
  begin
     PageControl1.Pages[i].Enabled := PageControl1.Pages[i] = PageControl1.ActivePage;
  end;
end;

Wieso setzt Du nicht PageControl1.TabStop auf False?
Dann wird das per <TAB> erst garnicht angesprungen.