学步园

procedure TMainForm.FormPaint(Sender: TObject);
var
  CustRect: TRect;
  BmpFile: TBitmap;
  StrFile: string;
begin
  if FileExists(ExtractFilePath(Application.ExeName) + 'Picture.bmp') then
  begin
    StrFile := ExtractFilePath(Application.ExeName) + 'Picture.bmp';
    BmpFile := TBitmap.Create;
    BmpFile.LoadFromFile(StrFile);
    CustRect := Canvas.ClipRect;
    Canvas.Brush.Bitmap := BmpFile;
    Canvas.FillRect(CustRect);
    FreeAndNil(BmpFile);
  end;
end;