shengdanjie.pas

来自「超级简单的管理系统」· PAS 代码 · 共 43 行

unit shengdanjie;

interface

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

type
  TForm4 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  i:integer;
  a:string;

implementation

{$R *.dfm}

procedure TForm4.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if(i=1)then
begin
self.Image1.Picture.LoadFromFile('1.bmp');
end ;
if(i=2)then
begin
self.Image1.Picture.LoadFromFile('2.bmp');
i:=0;
end;
end;
end.