Treeview setfocus error, when Treeview ausgeblended

[Delphiturbo]

Hallo

ich verwende diesen Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Treeview1.Selected := Treeview1.Selected.GetNext;
  TreeView1.SetFocus; // error wenn Treeview ausgeblendet wird
  TreeView1.OnClick(TreeView1);
end;

wenn ich z.B. meinen Treeview in eine Tabsheet und dann wechsele ich zu Tabsheet2
Dann erscheint eine Fehler Meldung, wenn ich auf das Button1 anklicke (sehe Anhang)

Was kann ich dagegen machen?

[Die Muhkuh]

Zuerst das Tab in den Vordergrund setzen und dann das TreeView fokusieren.

[Delphiturbo]

wie kann ich Tabsheet1 in den Vordergrund machen?
Ich wollte am Anfang so machen, wenn man auf den Tabsheet2-Namen anklickt,
wird das Button deaktiviert. Aber es gibt kein Event für jede einzeln !

[Die Muhkuh]

Über die ActiveTab-Eigenschaft oder ActivePageIndex vom PageControl kannst das Tab auswählen.

Zitat:

Ich wollte am Anfang so machen, wenn man auf den Tabsheet2-Namen anklickt,
wird das Button deaktiviert. Aber es gibt kein Event für jede einzeln !

Über das OnChanging-Event des PageControls ist das machbar.

[Delphiturbo]

Danke
gelöst mit dem Code :

Delphi-Quellcode:

PageControl1.ActivePage:=TabSheet1;