窗体图片背景

最新推荐文章于 2021-03-07 16:19:45 发布

转载最新推荐文章于 2021-03-07 16:19:45 发布 · 81 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319906

为什么80%的码农都做不了架构师？>>>

var
  Bitmap: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('c:\temp\bg.bmp');
  Self.Brush.Bitmap := Bitmap;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;

 
 
 
 
 

 

 

  

//效果图: