unit1.~pas

刚刚学过DELPHI

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    showingimage: TImage;
    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;   m_i:integer ;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    width:=200;
    height:=120;
    ShowingImage.Picture.Assign(Image1.Picture);
    SetWindowLong(Application.Handle,
                                GWL_EXSTYLE,
                                 WS_EX_TOOLWINDOW);


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
        m_i:=m_i+1;
 if m_i>11 then  m_i:=1;

 if m_i=1 then
   showingImage.Picture.Assign(Image1.Picture)
 else if m_i=2 then
   showingImage.Picture.Assign(Image2.Picture)
 else if m_i=3 then
   showingImage.Picture.Assign(Image3.Picture)
 else if m_i=4 then
   showingImage.Picture.Assign(Image4.Picture)
 else if m_i=5 then
   showingImage.Picture.Assign(Image3.Picture)
  else if m_i=6 then
   showingImage.Picture.Assign(Image2.Picture)
  else if m_i=7 then
   showingImage.Picture.Assign(Image1.Picture)
  else if m_i=8 then
   showingImage.Picture.Assign(Image5.Picture)
   else if m_i=9 then
   showingImage.Picture.Assign(Image6.Picture)
   else if m_i=10 then
   showingImage.Picture.Assign(Image5.Picture)
   else if m_i=11 then
   showingImage.Picture.Assign(Image1.Picture)


end;

end.