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;
2023-11-10 15:30:34
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;