DBGRID中移动鼠标显示鼠标下CELL中文本
来源:互联网 发布:win10系统mac下载64位 编辑:程序博客网 时间:2024/05/18 02:34
TTestGrid = class(TCustomDBGrid)
end;
procedure TMainFrm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
OldActive : Integer;
begin
if (DBGrid1.MouseCoord(X,Y).X = 0) or (DBGrid1.MouseCoord(X,Y).Y = 0) then
exit;
if (DBGrid1.MouseCoord(X,Y).X = -1) or (DBGrid1.MouseCoord(X,Y).Y = -1) then
exit;
OldActive := TTestGrid(DBGrid1).DataLink.ActiveRecord;
try
TTestGrid(DBGrid1).DataLink.ActiveRecord := DBGrid1.MouseCoord(X,Y).Y - 1;
Label2.Caption := DBGrid1.Fields[DBGrid1.MouseCoord(X,Y).X - 1].AsString;
finally
TTestGrid(DBGrid1).DataLink.ActiveRecord := OldActive;
end;
end;
- DBGRID中移动鼠标显示鼠标下CELL中文本
- VC中随鼠标移动显示鼠标的位置
- 鼠标移动显示大图
- 鼠标移动显示
- delphi 中得DBGRID实现鼠标滚动。
- dbgrid鼠标滚动事件
- dbgrid支持鼠标滚轮
- 怎么用鼠标滚动来控制DBGRID移动?
- js 鼠标移动显示图片
- Flex 中鼠标移动到Label上显示手型
- eclipse中,去除鼠标移动到类上,显示很多信息
- Winform中ListView鼠标移动使用toolTip显示信息
- vim中设置显示行数,自动缩进,移动鼠标
- delphi中dbgrid中数据随鼠标滚轮滚动
- 如何在DBGrid中利用鼠标取得单元格的值
- 解决DBGrid中关于鼠标滚轮的一种方法。
- 适合在留言本或注册时候用的效果(鼠标移动后显示不同文字)
- 让DBGRID支持鼠标滚轮
- 最后的侠客:当Borland已成往事
- ARM MPlayer移植过程
- xDoclet在Hibernate中的用法总结
- CSDN Blog升级公告
- 华硕ASWM ——服务器管理系统 (资料)
- DBGRID中移动鼠标显示鼠标下CELL中文本
- 计算机协议大全
- j2SE学习总结
- 双击GRID中线调整列宽
- MSDN2005按需更新示例中的错误?
- 我的任务基本完成
- 网格重演大型机发展历程
- 正则表达式的写法
- Sql Storprocedure 的写法