-
c语言入门之C++ Builder中保持控件的位置及大小
C++ Builder/Delphi是Inprise(原Borland)公司广受欢迎的可视化C++/Pascal开发工具,利用它可极大地加快应用程序的开发速度。但是,也正因为其是可视化编程工具,将控件拖放到Form后,控件的位置就固定死了。随着Form的大小或屏幕分辨率的改变,控件和Form本身的位置往往变得非常混乱。本文将介绍一些正确定位控件及Form的方法。
利用OnResize事件改变控件位置及大小
C++ Builder/Delphi中的Form控件有一个OnResize事件,Form的所有与大小变化有关的动作可以触发这个事件,包括Form的创建、最大化/最小化/还原、用鼠标拖动改变大小等。因此,在此事件中动态地改变各个控件的位置可以确保其在Form中的相对位置正确。因为CBuilder与Delphi的程序有很多共同之处,所以这里只列出CBuilder的代码。
下面的代码将确保控件在任何情况下都居中。
程序一:
void __fastcall TForm1::FofmResize(TObject*Sender)
{
int midLoc=Width/2; file://取Form的中点
Label1->Left=midLoc-Label1->Width/2; file://设置Label1的位置为Form居中
Button1->Left=midLoc-Button1->Width/2; file://设置Button1的位置为Form居中
}
稍微修改这段代码,可以使控件保持在任何想要的位置。同样,也可以利用OnResize事件改变控件的大小。当Form中控件很多时,分别对每一个控件单独调整位置是件非常麻烦的事,在TFrom类中有一个Controls数组维护所有From中的控件,利用它可方便地对所有控件进行操作。下面是其源代码:
程序二:
void __fastcall TForm1::FormResize(TObject*Sender)
{
int midLoc=Width/2;
TControl * ChildControl;
fof(int i=0; i<ControlCount; i++)
{//遍历Controls数组,ControlCount是数组元素个数
ChildControl = Controls[i];
ChildCotrol->Left = midLoc-ChildControl->Width/2;
}
}
利用“容器”控制成组控件位置
上面的代码对维持所有控制到统一位置非常方便,但不利于对成组控件进行操作。
在C++Builder中提供了一些能安放其它控件的“容器”控件,如TPanel、TGroupBox等,可以将控件放在“容器”控件中:然后对“容器”控件进行操作,从而达到成组控制控件的目的。利用“容器”控件控制控件位置的结果,所有控件都自动居中,但是在GroupBox1控件中的子控件却没有居中,这是因为Controls数组只维护Form的直接子控件,对Form中控件的子控件则无能为力。因此,GroupBox1控件中的子控件仍然在初始位置,必须编写相应代码动态控制其位置及大小。这种技术非常重要,特别是在动态改变“容器”控件大小时。其实,“容器”控件与From一样有Controls数组,只要对其进行与程序2类似的操作即可。代码见程序3
程序三
void __fastcall TForm1::FormResize(TObject*Sender)
{
int midLoc=Width/2;
TControl * ChildControl;
for(int i=0;i<ControlConnt; i++)
{//遍历Controls数组,ControlCount是数组元素个数
ChildControl = Controls[i];
ChildControl->Left = midLoc-ChildControl->Width/2;
if (ChildControl ==GroupBox1)
{//若控件是GroupBox,对其子控件进行操作
int SubMidLoc=GroupBox1->Width/2;
for(int
j=0;j<GroupBox1->ControlCount;j++)
{//遍历GroupBox1的Controls数组。ControlCount是数组元素个数
ChildControl=GroupBox1->Controls[j];
ChildContro1->Left=SubMidLoc-ChildControl->Width/2;
}
}
}
}
在不同分辨率下维护窗体位置及大小
商业程序一般要在各种分辨率下运行,正确判断当前分辨率就显得很重要。Windows函数GetDeviceCaps可以返回任意设备描述表中设备大小。
GetDeviceCaps有两个参数,第一个是要查询的设备描述表句柄,第二个是要查询参数的类型,其中HORZRES,VERTRES分别代表屏幕水平和垂直分辨率。程序4是获得当前屏幕分辨率的代码。一般可将这段代码放在“工程文件”(如Project1.cpp)中,并将i、j定义为全局变量,然后可以利用前面介绍的技术控制各种屏幕元素的大小及位置。
程序四:
HDC hdc=GetDC(NULL); file://获得屏幕设备描述表句柄
int i=GetDeviceCaps(hdc,HORZRES); file://查询屏幕水平分辨率,并返回在变量i中
int j=GetDeviceCaps(hdc,VERTRES); file://查询屏幕水平分辨率,并返回在变量j中
ReleaseDC(NULL,hdc); file://释放屏幕设备描述表
用同样的方法,可以对不同大小纸张的打印进行控制,在这里不再赘述,有兴趣的朋友可查看Caps帮助及打印帮助。
利用OnResize事件改变控件位置及大小
C++ Builder/Delphi中的Form控件有一个OnResize事件,Form的所有与大小变化有关的动作可以触发这个事件,包括Form的创建、最大化/最小化/还原、用鼠标拖动改变大小等。因此,在此事件中动态地改变各个控件的位置可以确保其在Form中的相对位置正确。因为CBuilder与Delphi的程序有很多共同之处,所以这里只列出CBuilder的代码。
下面的代码将确保控件在任何情况下都居中。
程序一:
void __fastcall TForm1::FofmResize(TObject*Sender)
{
int midLoc=Width/2; file://取Form的中点
Label1->Left=midLoc-Label1->Width/2; file://设置Label1的位置为Form居中
Button1->Left=midLoc-Button1->Width/2; file://设置Button1的位置为Form居中
}
稍微修改这段代码,可以使控件保持在任何想要的位置。同样,也可以利用OnResize事件改变控件的大小。当Form中控件很多时,分别对每一个控件单独调整位置是件非常麻烦的事,在TFrom类中有一个Controls数组维护所有From中的控件,利用它可方便地对所有控件进行操作。下面是其源代码:
程序二:
void __fastcall TForm1::FormResize(TObject*Sender)
{
int midLoc=Width/2;
TControl * ChildControl;
fof(int i=0; i<ControlCount; i++)
{//遍历Controls数组,ControlCount是数组元素个数
ChildControl = Controls[i];
ChildCotrol->Left = midLoc-ChildControl->Width/2;
}
}
利用“容器”控制成组控件位置
上面的代码对维持所有控制到统一位置非常方便,但不利于对成组控件进行操作。
在C++Builder中提供了一些能安放其它控件的“容器”控件,如TPanel、TGroupBox等,可以将控件放在“容器”控件中:然后对“容器”控件进行操作,从而达到成组控制控件的目的。利用“容器”控件控制控件位置的结果,所有控件都自动居中,但是在GroupBox1控件中的子控件却没有居中,这是因为Controls数组只维护Form的直接子控件,对Form中控件的子控件则无能为力。因此,GroupBox1控件中的子控件仍然在初始位置,必须编写相应代码动态控制其位置及大小。这种技术非常重要,特别是在动态改变“容器”控件大小时。其实,“容器”控件与From一样有Controls数组,只要对其进行与程序2类似的操作即可。代码见程序3
程序三
void __fastcall TForm1::FormResize(TObject*Sender)
{
int midLoc=Width/2;
TControl * ChildControl;
for(int i=0;i<ControlConnt; i++)
{//遍历Controls数组,ControlCount是数组元素个数
ChildControl = Controls[i];
ChildControl->Left = midLoc-ChildControl->Width/2;
if (ChildControl ==GroupBox1)
{//若控件是GroupBox,对其子控件进行操作
int SubMidLoc=GroupBox1->Width/2;
for(int
j=0;j<GroupBox1->ControlCount;j++)
{//遍历GroupBox1的Controls数组。ControlCount是数组元素个数
ChildControl=GroupBox1->Controls[j];
ChildContro1->Left=SubMidLoc-ChildControl->Width/2;
}
}
}
}
在不同分辨率下维护窗体位置及大小
商业程序一般要在各种分辨率下运行,正确判断当前分辨率就显得很重要。Windows函数GetDeviceCaps可以返回任意设备描述表中设备大小。
GetDeviceCaps有两个参数,第一个是要查询的设备描述表句柄,第二个是要查询参数的类型,其中HORZRES,VERTRES分别代表屏幕水平和垂直分辨率。程序4是获得当前屏幕分辨率的代码。一般可将这段代码放在“工程文件”(如Project1.cpp)中,并将i、j定义为全局变量,然后可以利用前面介绍的技术控制各种屏幕元素的大小及位置。
程序四:
HDC hdc=GetDC(NULL); file://获得屏幕设备描述表句柄
int i=GetDeviceCaps(hdc,HORZRES); file://查询屏幕水平分辨率,并返回在变量i中
int j=GetDeviceCaps(hdc,VERTRES); file://查询屏幕水平分辨率,并返回在变量j中
ReleaseDC(NULL,hdc); file://释放屏幕设备描述表
用同样的方法,可以对不同大小纸张的打印进行控制,在这里不再赘述,有兴趣的朋友可查看Caps帮助及打印帮助。
最新更新
Objective-C语法之代码块(block)的使用
VB.NET eBook
Add-in and Automation Development In VB.NET 2003 (F
Add-in and Automation Development In VB.NET 2003 (8
Add-in and Automation Development in VB.NET 2003 (6
Add-in and Automation Development In VB.NET 2003 (5
AddIn Automation Development In VB.NET 2003 (4)
AddIn And Automation Development In VB.NET 2003 (2)
Addin and Automation Development In VB.NET 2003 (3)
AddIn And Automation Development In VB.NET 2003 (1)
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
武装你的WEBAPI-OData入门
武装你的WEBAPI-OData便捷查询
武装你的WEBAPI-OData分页查询
武装你的WEBAPI-OData资源更新Delta
5. 武装你的WEBAPI-OData使用Endpoint 05-09
武装你的WEBAPI-OData之API版本管理
武装你的WEBAPI-OData常见问题
武装你的WEBAPI-OData聚合查询
OData WebAPI实践-OData与EDM
OData WebAPI实践-Non-EDM模式