//用 Timer2 控制窗体的移动

　　

procedure TForm1.Timer2Timer(Sender: TObject); 

　　

begin 

　　

if form1.Left>=750 then

　　　

begin

　　　

form1.Top :=350;

　　　

form1.Left:=0;

　　　

end

　　

else

　　　

form1.Left:=form1.Left+5;

　　　

form1.Top :=form1.Top -3;

　　

end;

　　

procedure TForm1.Panel1Click(Sender: TObject);

　　

begin

　　

close;

　　

end;

　　

//实现用鼠标点住窗体的任意位置，拖动窗体

　　

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

　　　

Shift: TShiftState; X, Y: Integer);

　　

begin

　　

ReleaseCapture;

　　

Perform(WM_SYSCOMMAND,,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);