uniGUI学习之表格和链接(76)

效果图：

 

 0]设置StringGrid1的DefaultDrawing设为False;

1]设置StringGrid1DrawCell事件为：

复制代码
begin
  if (ACol = 0) and (ARow = 1) then
  begin // 某链接 单元格 下划线 显示

    StringGrid1.Canvas.font.color := clBlue;
    StringGrid1.Canvas.font.Style := [fsUnderline];
    StringGrid1.Canvas.TextOut(Rect.left, Rect.top,
      StringGrid1.Cells[ACol, ARow]);
  end
  else
  begin // 其他单元格
    StringGrid1.Canvas.font.color := clblack;
    StringGrid1.Canvas.font.Style := [];
    StringGrid1.Canvas.TextOut(Rect.left, Rect.top,
      StringGrid1.Cells[ACol, ARow]);
  end;
end;
复制代码

2]设置StringGrid1的StringGrid1SelectCell事件为：

procedure TForm3.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (ACol = 0) and (ARow = 1) then // 鼠标点示该单元格 时 触发弹出 新窗口 事件
    showmessage(StringGrid1.Cells[ACol, ARow]);
end;

 

如果是UniGUI里，就更简单，全部都是写HTML网页，下划线 文本里，超链接 其他 静态HTML页面文件即可。

 uniGUI学习之表格和链接(76)