unit1.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 1,476 行 · 第 1/3 页

 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton7.left;
   y:=speedbutton7.top;
   speedbutton7.left:=Panel1.left;
   speedbutton7.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
  end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton7.left;
   y:=speedbutton7.top;
   speedbutton7.left:=Panel1.left;
   speedbutton7.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
 end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton7.left;
   y:=speedbutton7.top;
   speedbutton7.left:=Panel1.left;
   speedbutton7.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
 end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton7.left;
   y:=speedbutton7.top;
   speedbutton7.left:=Panel1.left;
   speedbutton7.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;

 if(speedbutton8.left+48=Panel1.left)and(speedbutton8.top=Panel1.top) then
  vright:=true;
 if(speedbutton8.left-48=Panel1.left)and(speedbutton8.top=Panel1.top) then
  vleft:=true;
 if(speedbutton8.left=Panel1.left)and(speedbutton8.top-40=Panel1.top) then
  vup:=true;
 if(speedbutton8.left=Panel1.left)and(speedbutton8.top+40=Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton8.left;
   y:=speedbutton8.top;
   speedbutton8.left:=Panel1.left;
   speedbutton8.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
  end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton8.left;
   y:=speedbutton8.top;
   speedbutton8.left:=Panel1.left;
   speedbutton8.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
  end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton8.left;
   y:=speedbutton8.top;
   speedbutton8.left:=Panel1.left;
   speedbutton8.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
 end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton8.left;
   y:=speedbutton8.top;
   speedbutton8.left:=Panel1.left;
   speedbutton8.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;
 if(speedbutton9.left+48=Panel1.left)and(speedbutton9.top=Panel1.top) then
  vright:=true;
 if(speedbutton9.left-48=Panel1.left)and(speedbutton9.top=Panel1.top) then
  vleft:=true;
 if(speedbutton9.left=Panel1.left)and(speedbutton9.top-40=Panel1.top) then
  vup:=true;
 if(speedbutton9.left=Panel1.left)and(speedbutton9.top+40=Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton9.left;
   y:=speedbutton9.top;
   speedbutton9.left:=Panel1.left;
   speedbutton9.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
 end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton9.left;
   y:=speedbutton9.top;
   speedbutton9.left:=Panel1.left;
   speedbutton9.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
  end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton9.left;
   y:=speedbutton9.top;
   speedbutton9.left:=Panel1.left;
   speedbutton9.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
  end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton9.left;
   y:=speedbutton9.top;
   speedbutton9.left:=Panel1.left;
   speedbutton9.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
 end;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;

 if(speedbutton10.left+48=Panel1.left)and(speedbutton10.top=Panel1.top) then
  vright:=true;
 if(speedbutton10.left-48=Panel1.left)and(speedbutton10.top=Panel1.top) then
  vleft:=true;
 if(speedbutton10.left=Panel1.left)and(speedbutton10.top-40=Panel1.top) then
  vup:=true;
 if(speedbutton10.left=Panel1.left)and(speedbutton10.top+40=Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton10.left;
   y:=speedbutton10.top;
   speedbutton10.left:=Panel1.left;
   speedbutton10.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
  end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton10.left;
   y:=speedbutton10.top;
   speedbutton10.left:=Panel1.left;
   speedbutton10.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
 end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton10.left;
   y:=speedbutton10.top;
   speedbutton10.left:=Panel1.left;
   speedbutton10.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
 end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton10.left;
   y:=speedbutton10.top;
   speedbutton10.left:=Panel1.left;
   speedbutton10.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;
 if(speedbutton11.left+48=Panel1.left)and(speedbutton11.top=Panel1.top) then
  vright:=true;
 if(speedbutton11.left-48=Panel1.left)and(speedbutton11.top=Panel1.top) then
  vleft:=true;
 if(speedbutton11.left=Panel1.left)and(speedbutton11.top-40=Panel1.top) then
  vup:=true;
 if(speedbutton11.left=Panel1.left)and(speedbutton11.top+40=Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton11.left;
   y:=speedbutton11.top;
   speedbutton11.left:=Panel1.left;
   speedbutton11.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
  end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton11.left;
   y:=speedbutton11.top;
   speedbutton11.left:=Panel1.left;
   speedbutton11.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
 end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton11.left;
   y:=speedbutton11.top;
   speedbutton11.left:=Panel1.left;
   speedbutton11.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
  end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton11.left;
   y:=speedbutton11.top;
   speedbutton11.left:=Panel1.left;
   speedbutton11.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;
 if(speedbutton12.left+48=Panel1.left)and(speedbutton12.top=Panel1.top) then
  vright:=true;
 if(speedbutton12.left-48=Panel1.left)and(speedbutton12.top=Panel1.top) then
  vleft:=true;
 if(speedbutton12.left=Panel1.left)and(speedbutton12.top-40=Panel1.top) then
  vup:=true;
 if(speedbutton12.left=Panel1.left)and(speedbutton12.top+40=Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton12.left;
   y:=speedbutton12.top;
   speedbutton12.left:=Panel1.left;
   speedbutton12.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
  end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton12.left;
   y:=speedbutton12.top;
   speedbutton12.left:=Panel1.left;
   speedbutton12.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
  end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton12.left;
   y:=speedbutton12.top;
   speedbutton12.left:=Panel1.left;
   speedbutton12.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
 end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton12.left;
   y:=speedbutton12.top;
   speedbutton12.left:=Panel1.left;
   speedbutton12.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;

 if(speedbutton13.left+48=Panel1.left)and(speedbutton13.top=Panel1.top) then
  vright:=true;
 if(speedbutton13.left-48=Panel1.left)and(speedbutton13.top=Panel1.top) then
  vleft:=true;
 if(speedbutton13.left=Panel1.left)and(speedbutton13.top-40=Panel1.top) then
  vup:=true;
 if(speedbutton13.left=Panel1.left)and(speedbutton13.top+40=Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton13.left;
   y:=speedbutton13.top;
   speedbutton13.left:=Panel1.left;
   speedbutton13.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
  end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton13.left;
   y:=speedbutton13.top;
   speedbutton13.left:=Panel1.left;
   speedbutton13.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
  end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton13.left;
   y:=speedbutton13.top;
   speedbutton13.left:=Panel1.left;
   speedbutton13.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
  end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton13.left;
   y:=speedbutton13.top;
   speedbutton13.left:=Panel1.left;
   speedbutton13.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;
 vup:=falsE;
 vright2left:=falsE;
 vleft2right:=false;
 vdown2up:=false;
 vup2down:=falsE;

 if(speedbutton14.left<Panel1.left)and(speedbutton14.top=Panel1.top) then
  vright:=true;
 if(speedbutton14.left>Panel1.left)and(speedbutton14.top=Panel1.top) then
  vleft:=true;
 if(speedbutton14.left=Panel1.left)and(speedbutton14.top>Panel1.top) then
  vup:=true;
 if(speedbutton14.left=Panel1.left)and(speedbutton14.top<Panel1.top) then
  vdown:=true;
end;
begin
 detect;
 if(vright=true)and(vleft2right=false) then
  begin
   x:=speedbutton14.left;
   y:=speedbutton14.top;
   speedbutton14.left:=Panel1.left;
   speedbutton14.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vright2left:=true;
 end;
 if(vleft=true)and(vright2left=false) then
  begin
   x:=speedbutton14.left;
   y:=speedbutton14.top;
   speedbutton14.left:=Panel1.left;
   speedbutton14.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
  end;
 if(vup=true)and(vup2down=falsE) then
  begin
   x:=speedbutton14.left;
   y:=speedbutton14.top;
   speedbutton14.left:=Panel1.left;
   speedbutton14.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=true;
 end;
 if(vdown=true)and(vup2down=falsE) then
  begin
   x:=speedbutton14.left;
   y:=speedbutton14.top;
   speedbutton14.left:=Panel1.left;
   speedbutton14.top:=Panel1.top;
   Panel1.lefT:=x;
   Panel1.top:=y;
   vup2down:=false;
  end;
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
procedure detect;
begin
 vright:=falsE;
 vleft:=false;
 vdown:=false;