给你一段,准有用:
if Assigned(TreeView1.Selected.Data) then begin
if PFuncNode(TreeView1.Selected.Data)^.ChildForm<>nil then begin
CloseAllChildWnd;
SetWindowPos(PFuncNode(TreeView1.Selected.Data)^.ChildForm.Handle,HWND_TOP,0,0,0,0,SWP_NOSIZE
or SWP_NOMOVE or SWP_SHOWWINDOW);
end;
end;