敬请各位高手帮助(100分)

  • 主题发起人 主题发起人 lihouqi
  • 开始时间 开始时间
L

lihouqi

Unregistered / Unconfirmed
GUEST, unregistred user!
不知哪位高手有关于制作任意形状FORM,BUTTON(如圆形,椭圆等形状的窗体和按钮)的控件,我急需这样的功能,希望能尽快给予指导 lihh@cumt.edu.cn。
 
1stclasspro_d4,呵呵,满足你的要求,
要吗?
 
谢谢,能不能通过邮件(我的邮箱lihh@cumt.edu.cn是2M)传给我或告诉我如何得到?
 
it is 2.2M.
 
//Set your form to Ellipse region
procedure TForm1.Button1Click(Sender: TObject);
var
hRGN: THandle;
begin
hRGN := CreateEllipticRgn(0,0,width,height);
SetWindowRgn(Handle, hRgn, true);
end;
//Set your form to RoundRect region
procedure TForm1.Button2Click(Sender: TObject);
var
hRGN: THandle;
begin
hRGN := CreateRoundRectRgn(0,0,width,height,Width div 4, Height div 4);
SetWindowRgn(Handle, hRgn, true);
end;
//Set button1 to Ellipse region
procedure TForm1.Button3Click(Sender: TObject);
var
hRGN: THandle;
begin
hRGN := CreateEllipticRgn(0,0,Button1.width,Button1.height);
SetWindowRgn(Button1.Handle, hRgn, true);
end;
 
it is in:
http://programs.yesite.com/vcl_face.htm
http://www.netease.com/~bozhi/
or give me a large emailbox.
 
我已经切成4块寄出(含注册码),请查收,如果有问题,给我回信 :)
 
lihouqi:
把控件传到<a href="ftp://ftp.cumt.edu.cn/pub/incoming/delphi">咱们学校的ftp</a>上如何?
 
李璋琦:
谢谢,但你最好先告诉我(lihh@cumt.edu.cn)你的控件名字和所放的位置,OK?
 
to Tiwn:
把1stclasspro_d4注册码给我好吗!!!!!!
(只要注册码) to yma@cumt.edu.cn
 
sn: 1stclass2b259729
Enjoy it!
 
多谢各位帮助,这真是一个妙极的控件!Mr zhanghui is a 高手 too,佩服!
 
多人接受答案了。
 
在 http://mail.777.net.cn 可以申请8M的email信箱,不妨试一试,
不过速度较慢。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部