如何将超链接列添加到TcxGrid(Developer express grid)

单击列标题,列被选中。

转到“事件”

属性- OnStartClick -&燃气轮机;单击url时触发此事件

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

• 运行exec
• 输入url:www.google.com
• 按回车键
• 移动到链接上-手出现,点击链接,显示一条消息'点击',如果你没有点击事件,它会启动点击的网址(也许它也可以这样做,但我没有尝试过这个)

将属性设置为超链接后,可以展开属性。将sinogleClick属性设置为True,以便通过单击激活。

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;