科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件控制Delphi的窗口显示位置

控制Delphi的窗口显示位置

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在使用Delphi进行工作时,也许需要将多个独立的窗口放在一个主窗口中,但有不打算使用多文档界面(MDI),那么下面介绍的方法可能对你会有所启发。

作者:佚名 来源:天极网 2007年11月2日

关键字: Delphi 窗口 显示位置

  • 评论
  • 分享微博
  • 分享邮件

控制Delphi的窗口显示位置

wobenkuangren@...

在使用Delphi进行工作时,也许需要将多个独立的窗口放在一个主窗口中,但有不打算使用多文档界面(MDI),那么下面介绍的方法可能对你会有所启发。直接控制窗口的产生过程,并指定它的容器对象即Parent属性或ParentWindow 属性。

使用容器。这个容器是指可以容纳目标窗口的控制元件(WindowsControl),它可以是窗口、面板、页面控制等VCL对象。一个窗口在类别注册后将调用API函数CreateWindow,函数调用时需要传递一个WndParent即父窗口的句柄。Delphi 已将该函数封装在TcustomForm对象的CreateParams过程里面了。原函数的参数也封装在一个TCreateparams的记录类型里面。在IDE里,我们重载它,然后在容器控制的单元中调用即可。假设要将Form2和Form3放在Form1的Panel1中,可以这样做:

Form2单元接口部分
type
TForm2=Class(TForm)
pubic
procedureLoaded;override;
procedureCreateParams
(varParams:TParams);override;
end;

实现部分
procedureTForm2.Loaded;
begin
inheritedLoaded;
Visible:=Flase;
Position:=poDefault;
BorderIcons:=[];
BorderStyle:=bsNone;
//注意此时的窗口边界样式和图标,
改变这两个值,看看有无其它变化。
HandNeeded;//如果窗口不存在,就生成它。
SetBouds(0,0,Width,Height);
//不改变窗口原来的大小。
end;
procedureTForm2.CreateParams
(varParams:TCreateParams);
begin
inheritedCreateParams(Params);
Params.WndParent:=(OwnerasTForm).Handle;
//指定父窗口的句柄。
Params.Style:=WS_CHILDorWS_CLIPSIBLINGS;
//注意窗口的样式。
params.X:=0;
params.Y:=0;
end;

Form3单元类似于Form2单元。注意理解Loaded方法的重载,以及和Create方法的区别,先后顺序的不同。

假设Form1单元的客户区上面是控制面板Panel1,下方有两个按扭分别控制Form2和Form3的显示。单元如下:

Form1接口部分
type
TForm1=Class(TForm)
Panel1:TPanel;
Form2Button:TButton;
Form3Button:TButton;
procedureFormCreate(Sender:TObject);
procedureFormShow(Sender:TObject);
procedureFormResize(Sender:TObject);
procedureForm2ButtonOnClick(Sender:   ject);
procedureForm3ButtonOnClick(Sender:TObject);
end;

Form1实现部分//需要引用Form2和Form3单元。
procedureTForm1.FormCreate(Sender:TObject);
begin
Form2:=TForm2.Create(Self);//实际生成窗口。
Form3:=TForm3.Create(Self);
Form2.Show;
Form3.Show;
end;
procedureFormShow(Sender:TObject);
begin
Form2.BringToFront;//将该窗口放置在最上面。
end;
procedureFormResize(Sender:TObject);
begin
MoveWindow(Form2.Handle,Panel1.Left,Panel1.Top,
Panel1.ClientWidth,Panel1.ClientHeight,True);
//跟随着面板的大小和位置。
MoveWindow(Form3.Handle,Panel1.Left,Panel1.Top,
Panel1.ClientWidth,Panel1.ClientHeight,True);
end;
procedureForm2ButtonOnClick(Sender:TObject);
begin
Form2.BringToFront;
end;
procedureForm3ButtonOnClick(Sender:TObject);
begin
Form2.BringToFront;
end;

这样,Form2和Form3由Form1控制生成,而成为Form1 的两个子窗口。为了达到目标,还应该从项目窗口选项(Project|Options|Forms)中将两个子窗口从自动生成(Auto_Create)列表中移到有效窗口(AvailableForms)列表中。Form1 单元中的关键代码是Form*:=TForm*.Create(Self);

也许,这种方法有些累赘,那么直接访问TControl 对象的Parent属性或许来得更加简单。同上面一样生成三个窗口,而且将Form2和Form3设定为有效窗口。在按扭的事件句柄中控制Form2和Form3的显示,而且可以不计较Form2和Form3 的边界样式。

procedureTForm1.Button1Click(Sender:TObject);
begin
ifForm2=nilthen
//判断窗口是否已经存在,如果不存在则重新生成它。
begin
Form2:=TForm2.Create(Self);
Form2.Parent:=Panel1;
end;
Form2.WindowState:=wsMaximized;
Form2.Show;
Form2.BringToFront;
end;
procedureTForm1.Button2Click(Sender:TObject);
begin
ifForm3=nilthen
begin
Form3:=TForm3.Create(Self);
Form3.Parent:=Panel1;
end;
Form3.WindowState:=wsMaximized;
Form3.Show;
Form3.BringToFront;
end;

和前面的方法相比,使用Parent属性来控制子窗口确实容易得多。Delphi还提供了功能强大的镜框方法Dock来镶嵌或抠出子元件如工具条、工具窗等,但需要对这些对象有更加深入的了解。(注:Dock的本意是船坞,但是结合它的具体操作和表现,我认为翻译成镜框可以更好地理解和领会有关操作的意思)

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    闂傚倸鍊搁崐椋庢閿熺姴鐭楅幖娣妼缁愭鏌¢崶鈺佷汗闁哄閰i弻鏇$疀鐎n亞浠炬繝娈垮灠閵堟悂寮婚弴锛勭杸閻庯綆浜栭崑鎾诲冀椤撱劎绋忛梺璺ㄥ櫐閹凤拷

    濠电姷鏁告慨鐑姐€傛禒瀣劦妞ゆ巻鍋撻柛鐔锋健閸┾偓妞ゆ巻鍋撶紓宥咃躬楠炲啫螣鐠囪尙绐為梺褰掑亰閸撴盯鎮惧ú顏呪拺闂傚牊鍗曢崼銉ョ柧婵犲﹤瀚崣蹇旂節婵犲倻澧涢柛瀣ㄥ妽閵囧嫰寮介妸褋鈧帡鏌熼挊澶婃殻闁哄瞼鍠栭幃婊堝煛閸屾稓褰嬮柣搴ゎ潐濞叉ê鐣濈粙璺ㄦ殾闁割偅娲栭悡娑㈡煕鐏炲墽鐭嬫繛鍫熸倐濮婄粯鎷呯粵瀣異闂佹悶鍔嬮崡鍐茬暦閵忋倕鍐€妞ゆ劑鍎卞皬闂備焦瀵х粙鎴犫偓姘煎弮瀹曚即宕卞Ο闀愮盎闂侀潧鐗嗛幊搴㈡叏椤掆偓閳规垿鍩ラ崱妞剧凹濠电姰鍨洪敋閾荤偞淇婇妶鍛櫤闁稿鍊圭换娑㈠幢濡纰嶉柣搴㈣壘椤︾敻寮诲鍫闂佸憡鎸鹃崰搴敋閿濆鏁嗗〒姘功閻绻涢幘鏉戠劰闁稿鎹囬弻锝呪槈濞嗘劕纾抽梺鍝勬湰缁嬫垿鍩為幋锕€宸濇い鏇炴噺閳诲﹦绱撻崒娆戝妽妞ゃ劌鎳橀幆宀勫磼閻愰潧绁﹂柟鍏肩暘閸斿矂鎮為崹顐犱簻闁圭儤鍨甸鈺呮倵濮橆剦妲归柕鍥у瀵粙濡歌閸c儳绱撴担绛嬪殭婵☆偅绻堝濠氭偄绾拌鲸鏅i悷婊冪Ч閹﹢鎳犻鍌滐紲闁哄鐗勯崝搴g不閻愮儤鐓涢悘鐐跺Г閸犳﹢鏌℃担鐟板鐎规洜鍠栭、姗€鎮╅搹顐ら拻闂傚倷娴囧畷鍨叏閹惰姤鈷旂€广儱顦崹鍌炴煢濡尨绱氶柨婵嗩槸缁€瀣亜閺嶃劎鈽夋繛鍫熺矒濮婅櫣娑甸崨顔俱€愬銈庡亝濞茬喖宕洪埀顒併亜閹哄棗浜鹃梺鎸庢穿婵″洤危閹版澘绫嶉柛顐g箘椤撴椽姊虹紒妯哄鐎殿噮鍓欒灃闁告侗鍠氶崢鎼佹⒑閸撴彃浜介柛瀣閹﹢鏁冮崒娑氬幈闁诲函缍嗛崑鍡樻櫠椤掑倻纾奸柛灞剧☉缁椦囨煙閻熸澘顏柟鐓庢贡閹叉挳宕熼棃娑欐珡闂傚倸鍊风粈渚€骞栭銈傚亾濮樺崬鍘寸€规洖缍婇弻鍡楊吋閸涱垽绱遍柣搴$畭閸庨亶藝娴兼潙纾跨€广儱顦伴悡鏇㈡煛閸ャ儱濡煎褜鍨伴湁闁绘ǹ绉鍫熺畳闂備焦瀵х换鍌毼涘Δ鍛厺闁哄洢鍨洪悡鍐喐濠婂牆绀堟慨妯挎硾閽冪喖鏌曟繛褍瀚烽崑銊╂⒑缂佹ê濮囨い鏇ㄥ弮閸┿垽寮撮姀鈥斥偓鐢告煥濠靛棗鈧懓鈻嶉崶銊d簻闊洦绋愰幉楣冩煛鐏炵偓绀嬬€规洟浜堕、姗€鎮㈡總澶夌处

    重磅专题
    往期文章
    最新文章