Q&A

  • 이미지를 Drag하면 폼이 함께 움직이게 하려면?
이미지를 마우스로 누르고 움직이면 폼과같이 움직이게 하려면 어떻게 해야하죠?

1  COMMENTS
  • Profile
    최석기 2000.08.22 07:04
    조헌철 wrote:

    > 이미지를 마우스로 누르고 움직이면 폼과같이 움직이게 하려면 어떻게 해야하죠?



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

    Shift: TShiftState; X, Y: Integer);

    const

    SC_DragMove = $F012; { a magic number }

    begin

    ReleaseCapture;

    Form1.perform(WM_SysCommand, SC_DragMove, 0);

    end;