Question

delphi 开发不规则窗体，并且透明的；有例程吗？

Answer 1

这个很简单。这里搞一个透明窗体：双击Form1，输入代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clGreen;//设置窗体的背景色
Form1.TransparentColor:=True;//确定将窗体色透明化
Form1.TransparentColorValue:=clGreen;//设置窗体透明色的值
end;

按F9试一下，结果是窗体透明的。

同理，如果在Form1上面添加一张图片，而且将要透明部分的颜色都ps成Form1.Color相同的值，那么F9以后，窗体和图片的相同的Form1.Color的值颜色将透明，实现不规则窗体。怎样？简单吧。