拖放编辑问题(ControlMouseDown事件)(50分)

  • 主题发起人 主题发起人 wyd531
  • 开始时间 开始时间
W

wyd531

Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
procedure TForm1.ControlMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
if Button=mbLeft then
TControl(sender).begin
Drag(False,10);
end;

窗体里有Label1和Label2
为什么Label1此时就以进行拖放操作,Label2就不行
 
后退
顶部