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