L liuly Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-28 #3 procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Button1.Perform(wm_syscommand,$F012,0); end;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Button1.Perform(wm_syscommand,$F012,0); end;
L LuckyGrass Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-29 #7 但如果要使OnClick事件也有效，则要将Liuly的代码移到OnMouseMove事件中。 我对Button1.Perform(wm_syscommand,$F012,0);不太明白，有无其它方法， 我记得有利用OnDragDrog实现的，向大家请教。
但如果要使OnClick事件也有效，则要将Liuly的代码移到OnMouseMove事件中。 我对Button1.Perform(wm_syscommand,$F012,0);不太明白，有无其它方法， 我记得有利用OnDragDrog实现的，向大家请教。
梅 梅开盛 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-29 #8 如果既要使button的click有效,则将button的DRAGMODLE设为dmManual,然后用MouseDown事件处理过程来开始一个标签的拖动。首先判断按下的是否是左键，而后再判断项目是否合法。如满足条件则用begin DRAG(FALSE)开始拖动;至于ONDRAGDROP 是拖动放下时激发,用在接受方控件;但之前须通过ONDRAGOVER设置该控件的ACCEPT:=TRUE.
如果既要使button的click有效,则将button的DRAGMODLE设为dmManual,然后用MouseDown事件处理过程来开始一个标签的拖动。首先判断按下的是否是左键，而后再判断项目是否合法。如满足条件则用begin DRAG(FALSE)开始拖动;至于ONDRAGDROP 是拖动放下时激发,用在接受方控件;但之前须通过ONDRAGOVER设置该控件的ACCEPT:=TRUE.
