Hint на каждой ячейке StringGrid-a

[Sanprof]

Подскажите пожалуйста, как при перемещении курсора над Stringgrid показывать Hint, который мне нужен, в зависимости от того над какой ячейкой находится курсор. Сам кое-что сделал но Hint показывается только 1 раз, и каждый раз после клика на StringGrid (а в моей задаче клик должен отсутствовать).

procedure TViewer.MainGridMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MainGrid.MouseToCell(X, Y, FCurCol, FCurRow);
  if (FCurCol <> -1) and (FCurRow <> -1) then
  begin
    if FCurCol = 0 then
    begin
      MainGrid.Hint := MainGrid.Cells[0, FCurRow];
    end else
    if FCurRow = 0 then
    begin
      MainGrid.Hint := (MainGrid.Objects[FCurCol, 0] as TTemplTag).LongName;
    end else
    begin
      MainGrid.Hint := MainGrid.Cells[0, FCurRow] + '  ' +
                       (MainGrid.Objects[FCurCol, 0] as TTemplTag).LongName;
    end;
  end else
    MainGrid.Hint := '';
end;

[mihali4]

В приведенном примере отслеживается движение курсора мыши - при перемещении между ячейками StringGrid'а - появляется окно подсказки(hint), показывающее номер текущей строки и колонки.

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1MouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
  {Private declarations}
    Col : integer;
    Row : integer;
  public
  {Public declarations}
   end;
var
  Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Hint := '0 0';
  StringGrid1.ShowHint := True;
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; 
                   Shift: TShiftState; X, Y: Integer);
var
  r : integer;
  c : integer;
begin
  StringGrid1.MouseToCell(X, Y, C, R);
  with StringGrid1 do
    begin
      if ((Row <> r) or(Col <> c)) then
        begin
          Row := r;
          Col := c;
          Application.CancelHint;
          StringGrid1.Hint :=IntToStr(r)+#32+IntToStr(c);
        end;
    end;
end;

[Stilet]

Ой, Михалыч, чеж все так сложно то?

Sanprof

Со своей стороны предлагаю принудительный вызов хинта

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  with StringGrid1 do begin
   Hint:=Format('%d-%d',[x,y]);
  end;
  Application.ActivateHint(Mouse.CursorPos);
end;

Ну а уже что пихать в хинт - дело твое, барскоё.

[mihali4]

А теперь, дружище, расскажи, как ему в твоем коде отличать одну ячейку от другой...

[Stilet]

как ему в твоем коде отличать одну ячейку от другой...

Запросто, только сначала пусть автор критерии определит.
что значит фраза "над какой ячейкой находится курсор"?
Тем паче что не только MouseToCell рулит.
а вот зачем ты прикрутил Application.CancelHint; я признаться пока не понял.

[mihali4]

А чтобы другие хинты, ежели они назначены, не мешали...

[Sanprof]

Сообщение от Stilet

автор критерии определит.
что значит фраза "над какой ячейкой находится курсор"?

У меня в первой строке (фиксированая) в поле Objects находятся объкты TTempTag у каждого есть свойство LongName, в первой колонке (фиксированая) находятся имена "Тегов", когда я навожу на ячейку, то я проверяю если это первая строка либо столбец, то показать хинт только той ячейки, над которой находится курсор, а если ARow и ACol <> 0 тогда показываем (Cell[0, FCurRow] + ' ' + Cells[FCurCol, 0]), тоесть через пробел имя "Тега" + "LongName"

Сообщение от Stilet

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  with StringGrid1 do begin
   Hint:=Format('%d-%d',[x,y]);
  end;
  Application.ActivateHint(Mouse.CursorPos);
end;

Вот пришел на работу, сел за проект, добавил к своей процедурке Application.ActivateHint(Mouse.Curs orPos); и все заработало как я и хотел. Пасиб за помощь.