Q&A

  • 켑션바 아닌데서 클릭해서 폼 이동하기
이런 질문 많이 올라오구 팁도 있는거 봤는데요...



만약 페널이나 이미지를 클릭했을때 이동가능하려면 어떻게 하나요??



페널이나 이미지 클릭했을때는 인자가 Tobject밖에 없어서 어떻게 해야 할지 모르겠습니다.



좋은 방법 있으면 알려주세요...

1  COMMENTS
  • Profile
    bluesky 2000.11.17 18:49
    박제범 wrote:

    > 이런 질문 많이 올라오구 팁도 있는거 봤는데요...

    >

    > 만약 페널이나 이미지를 클릭했을때 이동가능하려면 어떻게 하나요??

    >

    > 페널이나 이미지 클릭했을때는 인자가 Tobject밖에 없어서 어떻게 해야 할지 모르겠습니다.

    >

    > 좋은 방법 있으면 알려주세요...



    담과 같이 해보세여..

    각 MouseDown 이벤트에 다음을 추가하시면 될것입니다.



    procedure TF125.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

    Shift: TShiftState; X, Y: Integer);

    const

    SC_DragMove = $F012;

    begin

    ReleaseCapture;

    (sender as TWinControl).perform(WM_SysCommand, SC_DragMove,0);

    end;