StringGrid コンポーネントの子孫で、セルの値に応じてポップアップのヒント メッセージを変更したいと考えています。私のコーディング:
procedure TForm.GridMouseEnterCell(Sender: TObject; ACol, ARow: Integer);
var k: integer;
begin
k := strtointdef(Grid.Cells[13, ARow],-1);
Grid.ShowHint := (ACol = 12) and (k >= 0);
if Grid.ShowHint then
Grid.Hint := MyLIst.Items[k];
end;
これは、別の列から列 12 にマウスを移動すると正常に機能しますが、列 12 にとどまって別の行 (k の値が異なる) に移動すると、ポップアップ ヒントは変更されません。最初にマウスを別の列に移動してから列12に戻ったときにのみ、正しい/新しいヒントが表示されます。誰か解決策がありますか?