如何做圆形按钮？

[上海老李]

如何做圆形按钮？

[njxdh]

第三方控件1st
Wild Deer

[上海老李]

我试了，不行？还有办法没？

[windofsun]

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;

[上海老李]

如何用代码实现圆形控件和有椭圆角的窗体！

[wxzcsut]

下载一个第三方控件，可以自己定义控件和窗体的外观、颜色，别说圆形，曲线型的都可以！具体名字我不记得了，可以找找看！可惜我这里没有，不然可以发给你

如何用代码实现！我也想知道！

[albert]

仿照C++BUILDER的做法：

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)
{
//创建园形按钮
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）点是按钮的最左上角，而（宽，高）点是按钮的最右下角。

---- 应该注意的是，一旦将区域句柄赋给按钮，就不能再对区域句柄作任何操作。如果将区域句柄赋给按钮后，修改或删除这个句柄将导致程序崩溃。

---- 光标只在园形和三角形区域内变为crCross形状。为了使按钮美观可以使用BitBtn或SpeedButton按钮，在按钮上附上位图。有关API区域函数的使用请参看Win32SDK.hlp帮助文件。