客户专线:400-641-8864 | 在线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.



猜您喜欢:     易当家ERP简介     E8ERP系统含进销存、生产、财务     软件定制及其流程

ERP,ERP系统,ERP软件
ERP软件 | 易助ERP | 鼎捷软件 | 神州数码 |
Copyright© 2008-2016 深圳市易当家软件开发有限公司. All Rights Reserved. 粤ICP备14043283号