按钮的各种形状是在运行时配置的而不是在设计时配置。设计时按钮的形状仍然是长方形或正方形。
按钮形状的设计分成两个步骤:
第一步创建按钮的外形,即定义窗口区域。使用API的区域创建函数就可达到目的。区域创建函数很多,主要有CreateEllipticRgn 、CreatePolygonRgn、 CreateRectRgn、 CreateRoundRectRgn,用于创建不同类型的区域显示。假如需要一个复杂区域形状,那么能够分别使用不同的区域函数创建不同的区域,然后调用CombineRgn API函数把他们组合起来。所以说,不但能够创建出圆形、三角形的按钮,而且还能够创建出其他各种形状的按钮。
第二步将区域显示应用到窗口上。一旦使用区域函数创建了一个新的区域显示,就能够使用SetWindowsRgn函数将这个区域应用到窗口上。
下面给出圆形、三角形按钮实现的具体代码。为了直观显示效果,将窗体的背景色配置为了黑色(Color配置为clBtnText),并将两个按钮的Cursor配置crCross。在窗体放置两个Button按钮,分别定义为RButton、TButton。实现窗口区域的最好时机是在窗体首次创建时,所以将处理程式放在OnCreate事件中。
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//创建园形按钮
HRGN hRgnR = CreateEllipticRgn(0,0,RButton→
Width,RButton→Height);
SetWindowRgn(RButton→Handle,hRgnR,TRUE);
//创建三角形按钮
TrPoint[0].x=TButton→Width/2;
TrPoint[0].y=0;
TrPoint[1].x=0;
TrPoint[1].y=TButton→Height;
TrPoint[2].x=TButton→Width;
TrPoint[2].y=TButton→Height;
HRGN hRgnT = CreatePolygonRgn(TrPoint,3,ALTERNATE);
SetWindowRgn(TButton→Handle,hRgnT,TRUE);
}
其中TrPoint在Unit.h头文档中定义如下:
private: // User declarations
POINT TrPoint[3];
上面的代码在按钮的边界内分别创建了一个园形区域和一个三角形区域,然后作为新的窗口区域把他赋给各自的按钮。在创建园形按钮时使用了椭圆形区域创建函数,要使按钮为园形在设计时该按钮应设计为正方形。另外区域是以按钮坐标的形式定义的,而不是用屏幕坐标。(0,0)点是按钮的最左上角,而(宽,高)点是按钮的最右下角。
应该注意的是,一旦将区域句柄赋给按钮,就不能再对区域句柄作任何操作。假如将区域句柄赋给按钮后,修改或删除这个句柄将导致程式崩溃,所以……千万不要这样做,否则,您的程式虽然花哨了一些,但却是“拾了芝麻丢了西瓜”而因小失大!说到这里,我想,程式设计首先要注意“稳定性”,至于其他的都次要。




