2,496
社区成员
发帖
与我相关
我的任务
分享
uses unit2;
procedure CloseForm(pnl:TPanel);
var
i:Integer;
begin
for i:=0 to pnl.ControlCount-1 do
if pnl.Controls[i] is TForm then
TForm(pnl.Controls[i]).Close;
end;
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
tn:TTreeNode;
begin
tn:=TreeView1.GetNodeAt(x,y);
if tn<>nil then
begin
CloseForm(panel1);
if tn.Text='窗体1' then
begin
form2:=Tform2.create(self);
form2.parent:=panel1;
form2.Left:=0;
form2.Top:=0;
form2.Show;
end
{ else ...
}
end;
end;