怎样设delphi的form背景?

发布网友 发布时间：2023-07-15 03:24

我来回答

共3个回答

热心网友 时间：2024-11-24 09:08

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

热心网友 时间：2024-11-24 09:09

其一，在form的onPaint事件中写代码；其二，拦截WM_ERASEBKGND；
示例如下：
TForm1 = class(TForm)
Button1: TButton;
procere FormPaint(Sender: TObject);
procere bk(var msg:TWMERASEBKGND);message WM_ERASEBKGND;
end;
//仅仅示范而已。
procere 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;

热心网友 时间：2024-11-24 09:09

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

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

//仅仅示范而已。
procere 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...微软给出过具体例子的。