怎样让FORM上添加一个背景图,不放IMAGE(5分)

  • 主题发起人 花无泪
  • 开始时间

花无泪

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样让FORM上添加一个背景图,不放IMAGE
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.Canvas.Brush.Bitmap.LoadFromFile('c:/aaa.bmp');
end;
 

Self.Canvas.Brush.Bitmap.LoadFromFile('c:/aaa.bmp');
放在 Paint 事件中
 
sorry,上面的有误,下面的通过:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
myBitMap:Tbitmap;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
myBitMap := TBitMap.Create;
MyBitMap.LoadFromFile('C:/WINDOWS/Circles.bmp');

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do begin
Brush.Bitmap := Mybitmap;
FillRect(ClipRect);
Brush.Bitmap := nil;
end;

end;

end.
 
估计也就是 xeen 的方法比较好了,在FORM要求刷新区域的时候动态绘制背景。
 
能不能把BMP图调到DELPHI 的资源,不用外面的文件。
 
loadfromresource
 
具体怎么使用呢?
 
收藏!!
 
loadfromresource 怎么用呢?DELPHI 没有导入资源的功能吧?
 
接受答案了.
 

Similar threads

回复
0
查看
575
不得闲
D
回复
0
查看
676
DelphiTeacher的专栏
D
D
回复
0
查看
663
DelphiTeacher的专栏
D
顶部