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;