关于form，保证给分，谢谢大家，在线等候

Question

delphi 6中怎样创建不规则窗体？
在delphi 6中据说只要设置一下，窗体的背景图片，然后设置trsanparent属性成为图片的背景颜色就会成为图形状的窗体，可是我怎么找不到form的背景图片属性?如果您知道，请给出背景图片属性的具体名字。我在delphi 7有这个属性

Answer 1

delphi 7，0有此功能吗：
delphi 6 是没有  
不过可以编程实现。。我手头就有一个。

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
  R:HRGN;
begin
  Form1.Color:=clRed;
  BeginPath(Canvas.Handle);
  SetBKMode(Canvas.Handle, TRANSPARENT);
  Canvas.Font.Name:='宋体';
  Canvas.Font.Size:=200;
  Canvas.TextOut(150,130,'CX66.COM');
  EndPath(Canvas.Handle);
  R := PathToRegion(Canvas.Handle);
  SetWindowRgn(Handle, R, True);
end;

Answer 3

只显示'CX66.COM'形状，如果要显示椭圆形和三角形窗体图片的形状呢？

Answer 4

你在form上放一个inmage控件而后将属性设为clint
在用下面的涵数CreatEllipticRgn  椭圆
CreatPolygonRgn  多边型
CreatRectRgn   距型
CreatRoundRectRgn  圆角距型

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var rgn:HRGN;
begin
  BeginPath(Canvas.Handle); // 开始绘画路径，在指定的Canvas
  SetBkMode( Canvas.Handle, TRANSPARENT ); // 设置背景为透明
  Canvas.RoundRect(10,10,100,100,60,60); // 画三个圆角矩型
  Canvas.RoundRect(50,50,100,200,60,60); // 
  Canvas.RoundRect(50,10,100,200,60,60); // 
  EndPath(Canvas.Handle); // 结束绘画路径
  rgn:= PathToRegion(Canvas.Handle); // 将路径加入区域
  SetWindowRgn( Handle, rgn, true ); // 设置视窗范围
end;
　 

Answer 6

有个控件是专门干这个的，给我个email(我的email：[email protected])，我发给你！
可以做任意形状，甚至是一张照片中一个人的样子！

Answer 7

什么控件给我一个啊，或者把控件名字告诉我，我自己去找
[email protected] 谢谢

Answer 8

偶也要，谢谢！[email protected]