ich habs geschaft.
so funktioniert es:
[/procedure TForm1.dxMainTreeClick(Sender: TObject);
var
ActiveNodeIndex :Integer;
fchild1: TForm3;
fchild2: TForm2;
begin
lActiveNodeIndex := MainTree.FocusedNode.AbsoluteIndex;
case lActiveNodeIndex of
1: begin
fchild1 := TForm3.Create(self);
fchild1.Top :=0;
fchild1.Left :=0;
end;
2: begin
fchild2 := TForm2.Create(self);
fchild2.Top :=0;
fchild2.Left :=0;
end;
end;
end;]