【搞定】可以将dataGrid的内容做成链接文字吗？[问题]**

新来小职员

我想做一个功能，点击DataGrid某单元格的内容可以弹出个窗体。

atiger

可以，在字段的OnButtonClick事件上做。
http://bbs.justep.com/forum.php?mod=viewthread&tid=15550
http://bbs.justep.com/forum.php?mod=viewthread&tid=15055
这两个帖子都是你们发的，如果有问题，请先跟他们沟通一下

新来小职员

这个我早知道了，我问的不是这个意思。
例如：我在一个单元格有‘张三’这个文本内容，我点‘张三’时弹出个窗体，也就是让‘张三’这个文本内容成为一个可以点击的按钮。

jianth2005

他想要的效果如图所示:
就是想在姓名列的每个学生做一个超链接.点击链接的时候弹出一个功能就可以了.

zfang

procedure TSJWG2.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode;
AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer;
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
  //我这儿用的是临时数据集的a字段
  if AColumn.Name <>'DataGridColumna'   then
    Exit;

  with ACanvas do
  begin
    Font.Style := [TFontStyle.fsUnderline];
    Font.Color := Business.System.Graphics.clBlue;
  end;
end;
这种效果是可以参考上面的代码实现，点击实现弹出界面参考
procedure TSJWG2.DataGridClick(Sender: TObject);
begin
  if DataGrid.FocusedField.FieldName = 'a' then
  begin
    jsDialogs.ShowMsg(DataSetBrokerZDYSJJ1.DataSet.FieldByName('a').AsString,'ok');
  end;
end;

atiger

楼主，还有问题吗？没有就结贴了

新来小职员

结贴吧！

atiger

ok'