delphi 中鼠标移动事件
鼠标移动事件的应用procedureTForm1.DBGrid1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginself.X:=X;self.Y:=Y;Dbgrid1.Repaint;end;
下载地址
用户评论
资源不错，感谢分享！！！