求教:如何做不规则的图片窗体(200分)(0分)

  • 主题发起人 主题发起人 酷叶
  • 开始时间 开始时间
CreateRoundRgn(其它形状的也有)

SetWindowRgn
 
SetWindowRgn 怎么用???
 
google上搜一下,遍地都是!
 
procedure TForm1.Button1Click(Sender: TObject);
var
HRgn: THandle;
begin
HRgn := CreateRectRgn(10,10,100,100);
Setwindowrgn(self.handle,HRgn,true);
end;
 
图片窗体
 
一个更加简单,但只适用于WindowsNT内核电脑的例子:
设置Form属性TransparentColor为True,TransparentColorValue为要屏蔽的颜色。就可以了。
源代码我也有,想要的话就联系:swimingdragon@hotmail.com
 
掩膜文件制作不规则FORM;
扫描一张BMP;
碰到不透明的颜色点。就将该点添如RGN数据中。。。。。。。得到RGN。知道该怎么做了。
 
后退
顶部