关于窗体设计的问题！大家帮帮忙！

Question

比如我在窗体上放了一个图样，我想在运行时就只显示该图像，而不要用标题栏等出现。我该怎么样来画？
大家给我写一下完整的代码，谢谢了！

Answer 1

BorderStyle = bsNone或Form1.BorderStyle:= bsNone;

Answer 2

同上，还加一个：
image1.Align :=alClient;

Answer 3

首先将BorderStyle设置为bsNone，然后让Image的Align属性设置为alClient，或者将Form的AutoSize属性设置为True你是不是要做封面！

Answer 4

程序封面？呵呵
把Image的Align属性设置为alClient，即为平铺的意思。
把Image的AutoSize的属性设置为True，即为让Pictrue自动充满Image。
把Form1的BorderStyle设置为bsNone即可。即为不要标题栏的意思。在Image的OnClick事件中，写
Close;//即为点击图片，关闭窗体。
在主窗体调用这个窗体，假设那个窗体名为Form1
Form1:=TFomr1.Creat(self);
Form1.Showmodal;
Form1.Free;

Answer 5

如果你想不把Image设为充满客户区
那你可以把窗体的透明度改为0

Answer 6

更全面的一点的就是不但要把FORM的BORDERSTYLE设为NONE，把IMAGE的ALIGN设为CLIENT，还要设置一下SYSTEMBORDER。我身边没有这个DELPHI，但用汉语说就是设置一下系统菜单里边有很多项，还有WINDOWSTATE等等吧你可以分别试一下。

Answer 7

我就是在把不规则的图做为窗体！比如：我把一个MP3的皮肤放到Frorm窗体上，运行时就只显示这个皮肤，另外什么也看不到。我这样该怎么来画！希望详细告知！

Answer 8

创建任意形状窗体：
procedure TForm1.FormClick(Sender: TObject); 
var 
  R : HRgn; 
begin 
  if IsRound then 
    begin 
      SetWindowRgn(Handle,0,True); 
      DeleteObject(R); 
      IsRound := False; 
    end 
  else 
    begin 
      R := CreateEllipticRgn(-15,-15,Width+15,Height+15);       SetWindowRgn(Handle,R,True); 
      IsRound := True; 
    end; 
end; 
  
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  IsRound := False; 
end; 
  
end. 
////////////////////////////////////////////
四四方方的窗体也会变形，利用win32 API函数setwindowrgn就可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子：
procedure TPortForm.FormCreate(Sender: Tobject);
var hr :thandle;
begin
hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)
setwindowrgn(handle,hr,true); //设置园角窗口
end;
为了使该窗口更好，应在onResize事件处理程序放相同的代码。
/////////////////////////////////////
用汉字做窗体形状
procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
 BeginPath(Canvas.Handle);
 SetBkMode( Canvas.Handle, TRANSPARENT );
 Canvas.Font.Name:= '宋体';
 Canvas.Font.Size:=100;
 Canvas.TextOut( 20, 20, '漂亮吗?');//用"漂亮吗?"作为form的形状
 EndPath(Canvas.Handle);
 rgn:= PathToRegion(Canvas.Handle);
 SetWindowRgn( Handle, rgn, true );
end;

Answer 9

cjfzy(他山之石，可以攻玉。)如果我要把文字换成图，应该怎么做法啊？