Q&A

  • 패널 위치이동
안녕하세요..
폼위에 있는 패널의 위치를 마우스 드래그로 옮기려고 하는데
어떻게 하는지 궁금하네요..
고수님의 도움 부탁드립니다...
1  COMMENTS
  • Profile
    최석기 2002.05.02 20:22
    procedure TForm1.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;