【结】怎样作这种效果？**

longhuijin · 发表于 2008-5-22 17:21:26

　　datagrid里的记录，想在鼠标移到其中某一字段时自动弹出小窗体显示该字段的详细内容，这样的效果需要怎么做？

atiger · 发表于 2008-5-22 18:12:14

“详细内容”啥意思，整个字段的实际内容吗？还是自己定义一个提示信息？

longhuijin · 发表于 2008-5-22 19:29:25

是整个字段的实际内容是表现类型为文本的字段字段里面内容比较多 datagrid不能完全展示出来所以需要把内容完全显示出来

longhuijin · 发表于 2008-5-23 08:45:17

顶一下有点急切啊

longhuijin · 发表于 2008-5-23 09:15:44

有人来解决吗? 顶!

jiahaiming · 发表于 2008-5-23 10:01:23

楼主，可以在单击事件中做
procedure TMainForm.DataGrid1Click(Sender: TObject);
var
  i, j, l: integer;
begin
  i := TDataGrid(Sender).FocusedNumber;
  j := TDataGrid(Sender).FocusedAbsoluteIndex;
  l := TDataGrid(Sender).FocusedColumn;

  //jsDialogs.ShowMsg('FocusedNumber='+ Sysutils.IntToStr(i) + #13 +
  //  'FocusedAbsoluteIndex='+ Sysutils.IntToStr(j) + #13 +
  //  'FocusedColumn='+ Sysutils.IntToStr(l), '');
  jsDialogs.ShowMsg(TDataGrid(Sender).FocusedNode.Strings[l], '');
end;

longhuijin · 发表于 2008-5-23 10:28:23

最初由 jiahaiming 发布
[B]楼主，可以在单击事件中做
procedure TMainForm.DataGrid1Click(Sender: TObject);
var
  i, j, l: integer;
begin
  i := TDataGrid(Sender).FocusedNumber;
  j :=..

以下省略...... [/B]

有没有更理想的方式呢? SHOWMESSAGE似乎不能完全显示比较长的内容,另外能否做到鼠标移走窗口关闭?

longhuijin · 发表于 2008-5-23 10:52:47

好谢谢
procedure TDLWCQKTJBD.DataGrid1Click(Sender: TObject);
var
  i, j, l: integer;
begin
  i := TDataGrid(Sender).FocusedNumber;
  j := TDataGrid(Sender).FocusedAbsoluteIndex;
  l := TDataGrid(Sender).FocusedColumn;

  //jsDialogs.ShowMsg('FocusedNumber='+ Sysutils.IntToStr(i) + #13 +
  //  'FocusedAbsoluteIndex='+ Sysutils.IntToStr(j) + #13 +
  //  'FocusedColumn='+ Sysutils.IntToStr(l), '');
  DataGrid1.Hint :=TDataGrid(Sender).FocusedNode.Strings[l];
end;

是这样解决的  可以结帖啦!

jiahaiming · 发表于 2008-5-23 10:59:34

谢谢楼主反馈。

		自动登录	找回密码
密码			立即注册