Question

怎样设delphi的form背景？

form背景是灰色的，怎样给delphi的form加背景图片？怎样设打开我的程序运行后在桌面的中间？
各位，我想直接在Form添加背景图片，不是放Tlmage控件什么的,能不能不用控件，怎么放？
怎样设就象QQ一样，当鼠标移到菜单时菜单慢慢向下显示出来，平时菜单收缩紧在某一个地方？

Answer 1

一般给Form加背景图片最简单的方法就是在Form上放一个TImage控件，把TImage的Align属性设为alClient，Stretch属性设为True.然后在Picture属性里加载你要的背景图片。
如果想让程序运行后在桌面中间，只要把窗口的Position属性设置成poScreenCenter就可以了。

Answer 2

其一，在form的onPaint事件中写代码；其二，拦截WM_ERASEBKGND；
示例如下：
TForm1 = class(TForm)
Button1: TButton;
procedure FormPaint(Sender: TObject);
procedure bk(var msg:TWMERASEBKGND);message WM_ERASEBKGND;
end;
//仅仅示范而已。
procedure TForm1.bk(var msg: TWMEraseBkgnd);
var
b:TBitmap;
begin
b:=TBitMap.Create;
b.LoadFromFile('abc1.bmp');
inherited;
//form1.Canvas.TextOut(10,10,'hello');
form1.Canvas.Brush.Color:=clWhite;
form1.Canvas.BrushCopy(form1.ClientRect,b,form1.ClientRect,clBlack);
b.Free;
end;

Answer 3

可以有几种方法，其一，在form的onPaint事件中写代码；其二，拦截WM_ERASEBKGND；
示例如下：

TForm1 = class(TForm)
Button1: TButton;
procedure FormPaint(Sender: TObject);
procedure bk(var msg:TWMERASEBKGND);message WM_ERASEBKGND;
end;

//仅仅示范而已。
procedure TForm1.bk(var msg: TWMEraseBkgnd);
var
b:TBitmap;
begin
b:=TBitMap.Create;
b.LoadFromFile('abc1.bmp');
inherited;
//form1.Canvas.TextOut(10,10,'hello');
form1.Canvas.Brush.Color:=clWhite;
form1.Canvas.BrushCopy(form1.ClientRect,b,form1.ClientRect,clBlack);
b.Free;
end;

对于第二个问题，好像是Shell相关的什么Bar...微软给出过具体例子的。