Question

您好在Delphi中我管理（！）将列添加到TcxGrid表视图中，该视图显示为超链接（而不是简单的字符串）。为此，您只需编辑列的“属性”并选择“超链接”。单元格现在显示一个超链接样式（带下划线），但我为我的生活选择了如何：

通过链接将光标更改为“手”。
添加点击链接时触发的事件。

有人可以帮忙吗？感谢。

Answer 1

将属性设置为“超链接”后，可以展开属性。只需单击一下，即可将SiongleClick属性设置为True以进行激活。

更改光标更加困难。您将不得不对mousemove事件做出反应，并确定鼠标是否在超链接列上移动。来自DevExpress网站：

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  Ht: TcxCustomGridHitTest;
begin
  Ht := TcxGridSite(Sender).GridView.Viewinfo.GetHitTest(X,Y);
  If (Ht is TcxGridRecordCellHitTest) and
   (TcxGridRecordCellHitTest(Ht).Item.Properties is TcxHyperLinkEditProperties) then
    Screen.Cursor := crHandPoint
  else
    Screen.Cursor := crDefault;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Screen.Cursor <> crDefault then
     Screen.Cursor := crDefault;
end;

Answer 2

单击列标题，选择该列。

转到'活动'

属性 - OnStartClick - ＆gt;单击URL

时会触发此事件

在安装了最新dev.express的delphi 7系统上，当存在网址时，光标会变为一只手。

I zipped my Dephi 7 sample program and executable so you see the complete project your self（从我自己的网站www.edelcom.com下载）

运行exec
按下底部的插入按钮
输入网址：www.google.com
按enter
移动链接 - 手牌出现，点击链接，显示“点击”消息，如果您没有点击事件，则会启动点击的网址（也许它也可以这样做，但我还没有试过这个）

如何将超链接列添加到TcxGrid（Developer Express网格）

2 个答案: