三角形圆形窗体按钮的实现

procedure   TForm1.Button1Click(Sender:   TObject); 
begin 
    SetWindowRgn(Button2.handle,CreateEllipticRGN(0,0,Button2.Width,Button2.Height),True); 
    SetWindowRgn(Form1.handle,CreateEllipticRGN(0,0,Width,Height),True); 
end; 

procedure   TForm1.Button2Click(Sender:   TObject); 
begin 
    SetWindowRgn(Button2.handle,CreateRoundRectRgn(0,0,Button2.Width,Button2.Height,   30,   30),True); 
    SetWindowRgn(Form1.handle,CreateRoundRectRgn(0,0,Width,Height,   50,   50),True); 
end;

C++   Builder   中园形、三角形按钮的实现 


----   由于Window   95增加了对窗口区域概念的支持，使得窗口区域就是所定义的窗口看上去的形状，窗口区域作为窗口的实际边界区域，这样窗口区域不仅定义了窗口的可画区域，而且定义了窗口下隐含区域和响应鼠标击键事件的响应窗口区域。   

----   按钮的各种形状是在运行时设置的而不是在设计时设置。设计时按钮的形状仍然是长方形或正方形。   

----   按钮形状的设计分成两个步骤。   

----   第一步创建按钮的外形，即定义窗口区域。使用API的区域创建函数就可达到目的。区域创建函数很多，主要有CreateEllipticRgn   、CreatePolygonRgn、   CreateRectRgn、   CreateRoundRectRgn，用于创建不同类型的区域显示。如果需要一个复杂区域形状，那么可以分别使用不同的区域函数创建不同的区域，然后调用CombineRgn   API函数把它们组合起来。所以说，不仅可以创建出园形、三角形的按钮，而且还可以创建出其它各种形状的按钮。   

----   第二步将区域显示应用到窗口上。一旦使用区域函数创建了一个新的区域显示，就可以使用SetWindowsRgn函数将这个区域应用到窗口上。   

----   下面给出园形、三角形按钮实现的具体代码。为了直观显示效果，将窗体的背景色设置为了黑色(Color设置为clBtnText)，并将两个按钮的Cursor设置crCross。在窗体放置两个Button按钮，分别定义为RButton、TButton。实现窗口区域的最佳时机是在窗体首次创建时，所以将处理程序放在OnCreate事件中。   

void   __fastcall   TForm1::FormCreate(TObject   *Sender) 
{ 
        //创建园形按钮