unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;    type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Image2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    //圖片切換控制
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Image1.Visible=true  then
 begin
  Image1.Visible:=False;
  Image2.Visible:=true;
 end else
 begin
  Image1.Visible:=true;
  Image2.Visible:=False;
 end;
end;    //設定視窗移動的位置
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if Form1.Left>=750 then
  begin
   Form1.Top :=350;
   Form1.Left:=0;
  end
   else
   begin
   Form1.Left:=form1.Left 5;
   Form1.Top :=form1.Top -3;
   end;
end;    //關閉程式
procedure TForm1.N1Click(Sender: TObject);
begin
  close;
end;    //用滑鼠點視窗的任意位置，實現拖動視窗
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND,$F012,0);  
end;    //設置視窗的初始化位置
procedure TForm1.FormCreate(Sender: TObject);
begin
 left:=0;
 top:=350;
end;
//---------------------------------------------------------
//點擊Image1、Image2時，Timer2重新開始工作，實現視窗的再移動
procedure TForm1.Image1Click(Sender: TObject);
begin
 Timer2.Enabled :=true;
end;    procedure TForm1.Image2Click(Sender: TObject);
begin
 Timer2.Enabled :=true;
end;
//---------------------------------------------------------    //雙擊Image1、Image2時，Timer2停止工作，實現視窗的固定不動效果
procedure TForm1.Image1DblClick(Sender: TObject);
begin
 Timer2.Enabled :=false;
end;    procedure TForm1.Image2DblClick(Sender: TObject);
begin
 Timer2.Enabled :=false;
end;
//---------------------------------------------------------
end.