pagecontrol tabsheet bei klick auf treeview öffnen

[mr-unbekannt]

hello

ich habe eine treeview, und wenn ich auf einen bestimmten eintrag klicke soll sich ein
tabsheet(visible=false) sichtbar(visible:=true) öffnen

ich habe diesen vorschlag zu bieten, der leider nichts taugt...

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
PageControl1.ActivePage := TreeView1.Selected.Text;
end;

danke

[marabu]

Hi.

Die einfachste Lösung ist oft, wenn du bei der Erstellung des TreeNode der Data-Eigenschaft den Zeiger auf das TabSheet zuweist:

Delphi-Quellcode:

TreeNode.Data := Pointer(TabSheet);

Du kannst dann später sehr einfach im Ereignis OnChange() der TreeView wieder darauf zugreifen:

Delphi-Quellcode:

procedure TDemoForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if Assigned(Node) then
    PageControl.ActivePage := TTabSheet(Node.Data);
end;

Grüße vom marabu

[mr-unbekannt]

danke, habs so gelöst:

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected.Text = 'Einstellungen' then begin
TabSheet1.Visible := true; Tabsheet1.Show; end else
if TreeView1.Selected.Text = 'Hide' then begin
TabSheet2.Visible := true ;  Tabsheet2.Show; end else
 if TreeView1.Selected.Text = 'Email' then begin
TabSheet3.Visible := true ;  Tabsheet3.Show; end else
 if TreeView1.Selected.Text = 'FTP' then begin
TabSheet4.Visible := true ;  Tabsheet4.Show; end else
  if TreeView1.Selected.Text = 'Info' then begin
TabSheet5.Visible := true ;  Tabsheet5.Show; end else

end;