R
Ren7758521
Unregistered / Unconfirmed
GUEST, unregistred user!
下载地址:
http://www.playicq.com/dispdocnew.php?id=10466
http://www.2ccc.com/article.asp?articleid=284
1.新建一个工程;
2.在窗口上放置一个Image控件,并调入一个图片,Image1.Autosize:=True;
3.Form1.AutoSize:=True;Form1.TransparentColor:=True;
Form1.TransparentColorValue:=ClWhite(由于这个图片的边缘是白色的);
4.好了,运行就能看到一个透明的窗口了,如果将Form1.BorderStyle设置成BsNone,就是异形窗口了。
http://www.playicq.com/dispdocnew.php?id=10466
http://www.2ccc.com/article.asp?articleid=284
1.新建一个工程;
2.在窗口上放置一个Image控件,并调入一个图片,Image1.Autosize:=True;
3.Form1.AutoSize:=True;Form1.TransparentColor:=True;
Form1.TransparentColorValue:=ClWhite(由于这个图片的边缘是白色的);
4.好了,运行就能看到一个透明的窗口了,如果将Form1.BorderStyle设置成BsNone,就是异形窗口了。