var
Bmp: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('F:\visentest\0432_BMP.Cool\abcd.bmp');
Brush.Bitmap := Bmp;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Bmp.Free;
Bmp: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('F:\visentest\0432_BMP.Cool\abcd.bmp');
Brush.Bitmap := Bmp;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Bmp.Free;
end;
--visen 备注 dfm文件的读写
http://blog.csdn.net/longma2006/article/details/2683515