Fórum Como chamar form usando o comp. Treeview ou outro semelhante. #378814

  private
    { Private declarations }
    FIndexNode:Integer;

Alterer a propriedade    ReadOnly para True do TreeView

procedure TForm3.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
FIndexNode:= Node.Index;
end;

procedure TForm3.TreeView1Click(Sender: TObject);
var
Formulario:TForm;
begin
with  TreeView1.Items.Item[FIndexNode] do
  begin
    case Index of
      0:formulario:=TSeuCliente.Create(nil);
      1:formulario:=TSeuFornecedor.Create(nil);
      2:formulario:=TSeuFormQualquerCoisar.Create(nil);    
    else
       exit;
    end;
        try
          formulario.ShowModal;
        finally
            formulario.Release;
            formulario:=nil;
        end;
    end;
end;