in a TDBGrid, I add the following code:
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
aCol, aRow: Integer;
begin
DBGrid1.MouseToCell(X, Y, aCol, aRow);
if (aRow = 0) and (aCol >= 0) and (aCol < DBGrid1.Columns.Count) then
begin
DBGrid1.Hint := inttostr(acol);
DBGrid1.ShowHint := True;
end
else
begin
DBGrid1.Hint := '';
DBGrid1.ShowHint := False;
end;
end;When the mouse in column 0, the hint says '1'.
See:
https://ibb.co/tTxGwbzp
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20251024/f655b3aa/attachment.htm>
