frage zum treeview

[marabu]

Hi.

Vom Prinzip her kannst du es so machen:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    TreeView: TTreeView;
    procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
  private
    FVisibleForm: TForm;
    procedure SetVisibleForm(f: TForm);
  public
    property VisibleForm: TForm read FVisibleForm write SetVisibleForm;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.SetVisibleForm(f: TForm);
begin
  if Assigned(FVisibleForm) then
    FVisibleForm.Visible := false;
  FVisibleForm := f;
  if Assigned(FVisibleForm) then
    FVisibleForm.Visible := true;
end;

procedure TMainForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if Assigned(Node)
    then VisibleForm := TForm(Node.Data)
    else VisibleForm := nil;
end;

Du musst dazu einen Zeiger auf die jeweilige Form in der Data-Eigenschaft des Baumknoten deponieren.

Grüße vom marabu