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

Question

嗨，在Delphi中，我已经设法（！）在TcxGrid表视图中添加一列，该列显示为超链接（而不是简单的字符串）。 为此，您只需编辑列的“属性”并选择“超链接”。 现在，该单元格显示了超链接样式（带下划线），但是我无法确定自己的生活，该怎么做：

1. 通过链接获取光标以更改为“手”。
2. 添加一个当我单击链接时触发的事件。

有人可以帮忙吗？ 谢谢。

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 >单击URL时会触发此事件

在安装了最新dev.express的delphi 7系统上，如果存在URL，则光标变为手形。

我压缩了我的Dephi 7示例程序和可执行文件，以便您自己查看完整的项目 （从我自己的网站www.edelcom.com下载）

• 运行执行
• 按下底部的插入按钮
• 输入网址：www.google.com
• 按Enter
• 将鼠标移到链接上-出现手，然后单击链接，显示一条消息“ clicked”，如果没有click事件，它将启动被单击的url（也许它也可以这样做，但是我没有尝试过这个）