delphi 中鼠标移动事件

鼠标移动事件的应用procedureTForm1.DBGrid1MouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginself.X:=X;self.Y:=Y;Dbgrid1.Repaint;end;