鼠标按住后拖动StringGrid

varflag: Boolean;x1,y1: Integer;{初始化测试数据}
procedure TForm1.FormCreate(Sender: TObject);
vari,j: Integer;
beginStringGrid1.ColCount := 100;StringGrid1.RowCount := 100;StringGrid1.Align := alClient;for i := 0 to StringGrid1.ColCount - 1 dofor j := 0 to StringGrid1.RowCount - 1 doStringGrid1.Cells[i,j] := IntToStr(i*j);

end;procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
beginif not(ssCtrl in Shift) then Exit; {假如是按住 Ctrl 才能拖动}flag := True;x1 := X;y1 := Y;

  StringGrid1.Options := StringGrid1.Options - [goRangeSelect];

end;procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);var  px,py: Integer;begin  if not flag then Exit;  //if not(ssCtrl in Shift) then Exit;  px := GetScrollPos(StringGrid1.Handle, SB_HORZ);  py := GetScrollPos(StringGrid1.Handle, SB_VERT);  px := px - (X - x1);  py := py - (Y - y1);  StringGrid1.Perform(WM_HSCROLL, px shl 16 or SB_THUMBPOSITION, 0);  StringGrid1.Perform(WM_VSCROLL, py shl 16 or SB_THUMBPOSITION, 0);  x1 := X;  y1 := Y;end;procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  flag := False;

  StringGrid1.Options := StringGrid1.Options + [goRangeSelect];

end;

鼠标按住后拖动StringGrid相关推荐

原生JS案例（面向对象）——按住鼠标实现左右拖动列表
按住鼠标实现左右拖动列表需求基本结构效果图 HTML页面 CSS样式实现思路原生JS 最终效果实际应用需求鼠标在有色部分按下后, 可以对有颜色的部分进行左右拖拽基本结构效果图 HTML ...
qt设置鼠标追踪后，鼠标还是需要点击后才能变样式
引言鼠标在窗口的四个边和四个角后会显示不同的样式.在构造函数中设置了鼠标追踪,但是鼠标依然需要点击后才能改变样式,究其原因是只设置了父窗口的鼠标追踪,没有设置子控件的追踪,当然是子控件与父窗口的鼠标 ...
给元素设置鼠标移入后变为手型的属性
给元素设置鼠标移入后变为手型的属性鼠标移到该元素上时形状变为小手 cursor: pointer; 举例 <style>div{cursor: pointer;} </style& ...
2022-02-16 工作记录--Swiper-实现跑马灯效果：鼠标经过时停止滑动，鼠标离开后继续滑动
Swiper-实现跑马灯效果:鼠标经过时停止滑动,鼠标离开后继续滑动一.效果图二.对应代码 [swiper详情可见swiper官网,下面给出实现跑马灯效果的代码] [注意] 下面CSS和JS代码里 ...
axure中交互样式设置鼠标悬停后其他的按下选中无效_Axure交互动作
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 axure中交互样式设置鼠标悬停后其他的按下选中无效_交互区域 -- 交互动作启用情形+交互事件+交互动作三个部分构成了整个原型的交互逻辑.启用情形是 ...
css简单实现div鼠标悬浮后出现阴影
文章目录前言一.效果图二.使用步骤 1.HTML 2.CSS代码总结前言 css简单实现div鼠标悬浮后出现阴影一.效果图二.使用步骤 1.HTML 代码如下(示例): <div ...
HTML中通过js 自定义一个鼠标悬停后立刻显示的Title（附效果图）
1.通过事件实时获取鼠标当前对于窗体的相对位置,代码如下 <script>document.onmousemove = mouseMove;var posx;var posy;functi ...
Unity协程实现场景中鼠标按住的物体跟随鼠标移动
Unity协程实现场景中的鼠标按住物体跟随鼠标移动 void Awake() { StartCoroutine(OnMouseDown() as IEnumerator); } IEnumerator ...
鼠标移入后，图片变成另外的一张图片（1）| 直接给图片变色（只能变纯色）（2）
纯css (1) 在鼠标移入后,让本来的那张图片变成另外一张图片,用到的是hover属性 <a href=""><img src="../../publ ...

鼠标按住后拖动StringGrid

鼠标按住后拖动StringGrid相关推荐

最新文章

热门文章