Cellhint in TDrawgrid

[mangakissa]

TStringGrid has the property OnGetCellHint to show a hintwindow with is requested note. TDrawgrid doesn't have this property. I tried to get a hint with a example on this page, but it hang up the application and only can be killed by brute force.

Why doesn't TDrawgrid that property and how another way to show a hint window?

[Ocye]

You can use the OnShowHint-Event.

Code: [Select]

<TDrawGrid>.OnShowHint:=@<TDrawGrid>.DoShowHint;

procedure <TDrawGrid>.DoShowHint(Sender: TObject; HintInfo: PHintInfo);
var
  ax,ay: byte;
begin
  if MouseToCell(HintInfo^.CursorPos.X,HintInfo^.CursorPos.Y,ax,ay) then
    HintInfo^.HintStr:='Hello World';
end;

[mangakissa]

Thanks. I had to change the procedure a little bit, because MouseTocell is a procedure and doesn't give a boolean back.

[Ocye]

Yes, I just did copy/paste a procedure from my program where I override MouseToCell(). But the idea was clear, I guess.