创建Borland风格的漂浮式窗口

页面导航:首页 > 软件编程 > Delphi > 创建Borland风格的漂浮式窗口

创建Borland风格的漂浮式窗口

来源: 作者: 时间:2016-02-05 11:47 【

创建Borland风格的漂浮式窗口使用过Borland 系列开发工具产品(Delphi, C++Builder, Jbuilder)的朋友一定注意到Borland产品界面风格的特点,即屏弃了MDI(多文档界面),而采用分离的多窗口,特
 

创建Borland风格的漂浮式窗口

 

使用过Borland 系列开发工具产品(Delphi, C++Builder, Jbuilder)的朋友一定注意到Borland产品界面风格的特点,即屏弃了MDI(多文档界面),而采用分离的多窗口,特别是主窗口浮动于屏幕的最上方,当最大化时主窗口并不占满整个客户区,而是仍处在屏幕上方,使用户可以有更多的空间使用。那么如何才能实现类似于主窗口这样的效果呢?现在就在此介绍一下用Delphi实现的方法。

要实现上面所说的主窗口的效果,必须要做到三点:1、程序启动时使主窗口位于屏幕的最上方,且宽度充满整个屏幕;2、当用户拖动停靠工具条(Dockable ToolBar/CoolBar)时,窗口能自动调整大小;3、当用户点击最大化按钮时,窗口保持在屏幕最上方,且大小保持不变。

现在假设当前项目的主窗口(frmMain)中含有一个名为cbMainCoolBar(一般主窗口只包含菜单和工具条)。将TfrmMainAutosize属性设为False

具体步骤如下:

1、 为主窗口添加OnCreate事件,代码如下:

procedure TfrmMain.FormCreate(Sender: TObject);

begin

 Top:=0; //设定主窗口左上角到屏幕左上角

 Left:=0; //

 Width:=Screen.Width; //设定主窗口宽度为屏幕宽度

end;

Screen为预定义的类实例,对应与系统桌面,从其中可获取屏幕的一些参数。

 

2、 TfrmMain的定义部分添加私有成员:

private

   H:integer ;

为主窗口添加OnResize事件

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <