ClipCursor
도대체 님이 쓰신 글 :
: 이렇게하면 드래그는 되는데
:
: 밑에 패널 밖으로 나가버리네요 ㅡㅡ
:
: 이거 해결책 없을까요?
:
:
: __fastcall TForm19::TForm19(TComponent* Owner)
: : TForm(Owner)
: {
: isDrag=false;
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm19::Panel2MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
: int X, int Y)
: {
: isDrag=true;
: Panel2->Left = X;
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm19::Panel2MouseMove(TObject *Sender, TShiftState Shift, int X,
: int Y)
: {
: if(isDrag)
: Panel2->Left += X;
:
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm19::Panel2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
: int X, int Y)
: {
: isDrag = false;
: }
: |