如何在StringGrid某单元格下划线显示，并点击弹出新窗口

标签：Canvas ACol ARow 单元格 StringGrid StringGrid1 font 下划线

效果图：

 

 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页面文件即可。

 

标签：Canvas,ACol,ARow,单元格,StringGrid,StringGrid1,font,下划线
From： https://www.cnblogs.com/tulater/p/17117024.html