停泊(dock) 我创建两个窗口:form1,form2.怎样在启动的时候 用程序 将form2停泊在form1上? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在form1上放一个Panel,然后在form1的onshow事件中写Var DockPos : TRect;begin {注:停靠的窗体要比pnlUIfrm宽加8高加26} DockPos.Top := 0; DockPos.Left := 0; DockPos.Right := panel1.Width; DockPos.Bottom := panel1.Height; form2.Dock(panel1 , DockPos); form2.Show; end; hao de shou chang procedure TForm2.FormShow(Sender: TObject);var rect:trect;begin rect:=form1.ClientRect; form2.Dock(form1,rect);end; wooden954 求救,有点不想活的感觉:关于delphi+paradox的问题 我是新人请问用DLL HOOK 创建form时,当程序退出时,怎样删除form 初学者的头痛问题 如何在xp下获得硬盘序列号?急************************* cgi入门问题,请看看我的做错了什么 Application.terminate不能完全终止程序?!请帮我! delphi有没有经典书籍 遇到一个数据库问题,请教各位高手 着急 拼音处理单元代码,有兴趣的进来看看,原创 form中有 一个 edit 和一个listboxedit,edit中有数据,listbox中有很多数据项,
在form1的onshow事件中写
Var
DockPos : TRect;
begin
{注:停靠的窗体要比pnlUIfrm宽加8高加26}
DockPos.Top := 0;
DockPos.Left := 0;
DockPos.Right := panel1.Width;
DockPos.Bottom := panel1.Height;
form2.Dock(panel1 , DockPos);
form2.Show;
end;
shou chang
var
rect:trect;
begin
rect:=form1.ClientRect;
form2.Dock(form1,rect);
end;