delphi 창에 배경 그림 추가

263 단어 Delphi
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;

좋은 웹페이지 즐겨찾기