delphi - 将鼠标悬停在 dbgrid 的标题上

Question

有没有办法通过将鼠标移到 Dbgrids 标题上来捕获标题名称？

想法是使标题名称仅在光标移到标题字段上时可见。

提前交易。

Answer 1

下面的代码展示了如何获取鼠标指针所在的网格列的“标题”。

实际上，TDBGrid 列的列标题中显示的是该列的 Title 对象的 Caption 属性，该对象还具有其他属性。下面的代码读取并显示 Title 的 Caption 属性。

正如您从在线帮助中看到的，作为网格列的 TColumn 对象还具有 Field 和 FieldName 属性，您可以根据需要读取这些属性。

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:
    Integer);
var
  Col,
  Row : Integer;
begin
  Col := DBGrid1.MouseCoord(X, Y).X;
  Row := DBGrid1.MouseCoord(X, Y).Y;
  Caption := Format('Col: %d, Row:%d', [Col, Row]);
  if (Col > 0) and (Col <= DBGrid1.Columns.Count) then
    Caption := Caption + DBGrid1.Columns[Col - 1].Title.Caption;
end;