var
Bmp: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('D:\test.bmp');
Brush.Bitmap := Bmp;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Bmp.Free;
end;
var
Bmp: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('D:\test.bmp');
Brush.Bitmap := Bmp;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Bmp.Free;
end;
© 著作权归作者所有