鼠标移动事件的应用
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
self.X := X;
self.Y := Y;
Dbgrid1.Repaint;
end;
2024-03-03 08:01:07
858B
1
QT平台上，重写mouseMoveEvent和paintEvent实现鼠标移动过程中，实时显示鼠标所在位置坐标的功能，练习demo..
2021-08-19 20:08:54
4KB
1