Delphi 如何使按钮变得圆滑 就是让按钮好看点 那几个角变 圆滑点 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用png图片吧,或第三方,这是最快的解决方法 我学过的vc按钮可以自己创建的 灵活性很好啊 透明啊 圆滑啊 都可以设置的 Delphi中要怎么设置啊 用rzbitbtn按钮控件,或者皮肤控件创建按钮步骤var rb:TRzBitBtn;begin rb:=TRzBitBtn.create(self); rb.parent:=form1; rb.name:='RzbitBtn1'; rb.left:=10; rb.top:=10;end; 给你一个函数,这个函数必须对从TWinControl下继承的控件:procedure RoundedControl(hWnd: HWND);{ 设置指定控件的边框为圆角矩形形状}var R: TRect; Rgn: HRGN;begin GetWindowRect(hWnd, R); ScreenToClient(hWnd, R.TopLeft); ScreenToClient(hWnd, R.BottomRight); rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20); SendMessage(hWnd, EM_GETRECT, 0, lParam(@r)); InflateRect(R, -5, -5); SendMessage(hWnd, EM_SETRECTNP, 0, lParam(@r)); SetWindowRgn(hWnd, rgn, True); InvalidateRgn(hWnd, rgn, True); DeleteObject(Rgn);end; uses xpman;楼主引用这个单元试试! 偶是从tshape继承,自己画。添加fpicture可以带图片。不过不能接受焦点,用鼠标点可以。 这种一般都贴图的多带句柄我一般从TWinControl继承没句柄一般从TGraphicControl继承顶层类写控件感觉更舒服些 1.uses xpman;2.安裝vblskin皮膚控件... 一般选择皮肤控件 XPMAN在某些机器上没效果 唉那还不如用Timage反正只是要一个单击事件 SuiButton 做吧 只需要改个风格就可以了 请教删除记录的问题 这是什么错误? 我想买手机了,要实用型的,请大家推荐 在自编记事本程序文件关联后打开时却没有内容? 救急!怎么用delphi调用COM数组?(解决问题另送100分!up都有分!) 关于窗体的继承问题,大家进来看看,源程序. 请问AnimateWindow该API的用法? 在线等待,QuickRepart打印的问题? DELPHI与图型的问题 很简单的问题,如何在DELPHI中定义一个全局变量,在个窗体中都能使用 QuickReport 如何设置一页打3联? 散分,今天挺开心的
var
rb:TRzBitBtn;
begin
rb:=TRzBitBtn.create(self);
rb.parent:=form1;
rb.name:='RzbitBtn1';
rb.left:=10;
rb.top:=10;
end;
{
设置指定控件的边框为圆角矩形形状
}
var
R: TRect;
Rgn: HRGN;
begin
GetWindowRect(hWnd, R);
ScreenToClient(hWnd, R.TopLeft);
ScreenToClient(hWnd, R.BottomRight);
rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
SendMessage(hWnd, EM_GETRECT, 0, lParam(@r));
InflateRect(R, -5, -5);
SendMessage(hWnd, EM_SETRECTNP, 0, lParam(@r));
SetWindowRgn(hWnd, rgn, True);
InvalidateRgn(hWnd, rgn, True);
DeleteObject(Rgn);
end;
xpman;楼主引用这个单元试试!
不过不能接受焦点,用鼠标点可以。
带句柄我一般从TWinControl继承
没句柄一般从TGraphicControl继承
顶层类写控件感觉更舒服些
xpman;2.安裝vblskin皮膚控件...
XPMAN在某些机器上没效果
反正只是要一个单击事件