在窗体上移动控件

最新推荐文章于 2024-09-07 18:52:08 发布

原创最新推荐文章于 2024-09-07 18:52:08 发布 · 618 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #image #button

DELPHI编程专栏收录该内容

379 篇文章

订阅专栏

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssleft in shift then
    begin
      image1.cursor:= crHandPoint;
      x_image:=x+image1.Left;
      y_image:=y+image1.top;
      image1.Left:=x_image;
      image1.Top:=y_image;
    end;
end;
//当鼠标松开后，给组件重新确定坐标
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image1.Left:=x_image;
  image1.Top:=y_image;
end;

ReleaseCapture;
SendMessage(Panel1.Handle, WM_SYSCOMMAND, $F012, 0);
另外改变$F012的值会有很多别的功能
$F001:改变控件的left大小
$F002:改变控件的right大小
$F003:改变控件的top大小
$F004:改变控件的button大小
$F007:控件左边放大缩小
$F008:控件右边放大缩小
$F009:动态移动控件