控制Delphi的窗口显示位置
来源:互联网 发布:渲染软件keyshot 编辑:程序博客网 时间:2024/06/14 11:54
在使用Delphi进行工作时,也许需要将多个独立的窗口放在一个主窗口中,但有不打算使用多文档界面(MDI),那么下面介绍的方法可能对你会有所启发。直接控制窗口的产生过程,并指定它的容器对象即Parent属性或ParentWindow 属性。
使用容器。这个容器是指可以容纳目标窗口的控制元件(WindowsControl),它可以是窗口、面板、页面控制等VCL对象。一个窗口在类别注册后将调用API函数CreateWindow,函数调用时需要传递一个WndParent即父窗口的句柄。Delphi 已将该函数封装在TcustomForm对象的CreateParams过程里面了。原函数的参数也封装在一个TCreateparams的记录类型里面。在IDE里,我们重载它,然后在容器控制的单元中调用即可。假设要将Form2和Form3放在Form1的Panel1中,可以这样做:
Form2单元接口部分
typeTForm2=Class(TForm)pubicprocedureLoaded;override;procedureCreateParams(varParams:TParams);override;end; 实现部分procedureTForm2.Loaded;begininheritedLoaded;Visible:=Flase;Position:=poDefault;BorderIcons:=[];BorderStyle:=bsNone;//注意此时的窗口边界样式和图标,改变这两个值,看看有无其它变化。HandNeeded;//如果窗口不存在,就生成它。SetBouds(0,0,Width,Height);//不改变窗口原来的大小。end;procedureTForm2.CreateParams(varParams:TCreateParams);begininheritedCreateParams(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);beginForm2:=TForm2.Create(Self);//实际生成窗口。Form3:=TForm3.Create(Self);Form2.Show;Form3.Show;end;procedureFormShow(Sender:TObject);beginForm2.BringToFront;//将该窗口放置在最上面。end;procedureFormResize(Sender:TObject);beginMoveWindow(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);beginForm2.BringToFront;end;procedureForm3ButtonOnClick(Sender:TObject);beginForm2.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);beginifForm2=nilthen//判断窗口是否已经存在,如果不存在则重新生成它。beginForm2:=TForm2.Create(Self);Form2.Parent:=Panel1;end;Form2.WindowState:=wsMaximized;Form2.Show;Form2.BringToFront;end;procedureTForm1.Button2Click(Sender:TObject);beginifForm3=nilthenbeginForm3:=TForm3.Create(Self);Form3.Parent:=Panel1;end;Form3.WindowState:=wsMaximized;Form3.Show;Form3.BringToFront;end;
和前面的方法相比,使用Parent属性来控制子窗口确实容易得多。Delphi还提供了功能强大的镜框方法Dock来镶嵌或抠出子元件如工具条、工具窗等,但需要对这些对象有更加深入的了解。(注:Dock的本意是船坞,但是结合它的具体操作和表现,我认为翻译成镜框可以更好地理解和领会有关操作的意思)
- 控制Delphi的窗口显示位置
- WPF中控制窗口显示位置的三种方式
- 控制 Toast 显示的位置
- 控制Toast的显示位置
- 使用DockWindow库 控制窗口的位置
- 弹出窗口的显示和位置PopUpManager
- OpenCV设定窗口显示的位置
- 窗口样式的activity显示位置
- Delphi中实现正常窗口的显示
- delphi中显示中文版的打开窗口
- 控制控件在页面的显示位置
- 手动控制winform的显示位置
- 控制AlertDialog的显示位置和背景图
- 在父窗口的中间位置显示子窗口 MFC
- 命令窗口中信息的显示控制
- duilib : 窗口的分层显示控制
- 一段js的代码,用来控制弹出窗口的位置
- 一段js的代码,用来控制弹出窗口的位置
- Getting Started
- 经验详谈:如何学习操作系统?
- Asp.net连接各类数据库
- (ap)Proximated (x)Emacs Powered by Python
- wcf如何学习----参考经验
- 控制Delphi的窗口显示位置
- Struts 2.0的codebehinde插件应用简述
- C#(asp.net)环境下.flv格式文件无法播放
- putty乱码解决
- 有shape自定义button样式
- Tomcat6下Log4j的log4j:ERROR Failed to rename错误解决办法
- 【每日听力活动训练】第十四期 0409
- discuz x2密码加密方式
- JS学习总结