delphi 控制Label1 左右上下移动

拖放一个 Panel1组件，在Panel1组件上拖放一个label组件

procedure TForm1.VersLeHautClick(Sender: TObject);

begin

//上

  if Label1.Top >= 10 then

    Label1.Top := Label1.Top - 10;

end;

procedure TForm1.VersLaDroiteClick(Sender: TObject);

begin

  if Label1.Left + Label1.Width < Panel1.ClientWidth-10 then

    Label1.Left := Label1.Left + 10;

end;

procedure TForm1.VersLaGaucheClick(Sender: TObject);

begin

  if Label1.Left >= 10 then

    Label1.Left := Label1.Left - 10;

end;

procedure TForm1.VersLeBasClick(Sender: TObject);

begin

//下

  if Label1.Top + Label1.Height < Panel1.ClientHeight-10 then

    Label1.Top := Label1.Top + 10;

end;