Delphi 7设置窗口背景图片|ERP|ERP软件|ERP系统

客户专线：400-641-8864 / 153-2383-7083 | 在线QQ：987837344

首页

易当家ERP

鼎捷ERP

行业方案

实施方法

联系我们

Delphi 7设置窗口背景图片

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    ProgressBar3: TProgressBar;
    ProgressBar4: TProgressBar;
    ProgressBar5: TProgressBar;
    ProgressBar6: TProgressBar;
    ProgressBar7: TProgressBar;
    ProgressBar8: TProgressBar;
    ProgressBar9: TProgressBar;
    ProgressBar10: TProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Bitmap: TBitmap;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create();
  Bitmap.LoadFromFile('1.bmp');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Update;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  x, y: integer;
begin
  y := 0;
  while y < 5500 do
  begin
    X := 0;
    while X < 5024 do
    begin
      canvas.Draw(X, Y, Bitmap);
      X := X + Bitmap.Width;
    end;
    Y := Y + Bitmap.height;
  end;
end;

end.

猜您喜欢：　　　易当家E9ERP 　　　易当家E8ERP 　　　微信公众号开发