C crazyD Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-24 #3 这样试一下看看可以吗?: 自己用图象处理软件画一个喜欢按钮] 然后将他贴到 BITBUTN上 并且设置该控件的属性为透明
Z zgdtxf Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-24 #4 to crazyD 你说的应该是speedbuttom吧，将控件的属性为透明好象没起什么作用呀，不行的。
T tianjh007 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-24 #5 用API函数啊，给你个简单例子 var hR: LongInt; dl: LongInt; begin hR := CreateEllipticRgn(5, 5, BtnExit.Width-5, BtnExit.Height-5); dl := SetWindowRgn(BtnExit.Handle, hR, false); end; 别的API函数如CreateRoundRectRgn，CreateRectRgnIndirect等都可以,找点API的资料看看就行了
用API函数啊，给你个简单例子 var hR: LongInt; dl: LongInt; begin hR := CreateEllipticRgn(5, 5, BtnExit.Width-5, BtnExit.Height-5); dl := SetWindowRgn(BtnExit.Handle, hR, false); end; 别的API函数如CreateRoundRectRgn，CreateRectRgnIndirect等都可以,找点API的资料看看就行了
5 52free Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-24 #6 createwindowrgn//api函数 var hmyrgn:HRGN; hmyrgn = CreateEllipticRgn(0,0,button1.Width,button1.Height); SetWindowRgn(button1.handle,hmyrgn,true);
createwindowrgn//api函数 var hmyrgn:HRGN; hmyrgn = CreateEllipticRgn(0,0,button1.Width,button1.Height); SetWindowRgn(button1.handle,hmyrgn,true);
