[cardon]

Добрый день. Нужна помощь по компоненту StringGrid.
А именно...
На форме лежит StringGrid с 4 колонками и 20 рядами.
Пользователю показываются только 2 колонки 0 и 1.
В StringGrid на событии OnSelectSell висит функция при выделении к примеру 2 ряда открывается новая панель и в нее передаются данные с StringGrid а сам StringGrid временно закрывается.

В 3 и 4 колонка хранятся данные которые необходимо показывать как подсказку пользователю при наведении на ряд в StringGrid. То есть пользователь навел мышку на 2 ряд и ему из 3 и 4 колонки во 2 ряду вывела общая подсказка.

Так вот вопрос как реализовать вывод данной подсказки пользователю?
P.S. Не стоит отправлять гуглить все методы что в интернете основаны на OnMouseMove и MouseToCell

Код:

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

Но это не подходит мне т.к. при наведении мышкой выделяет ряд а как указано выше при выделении открывается панель и закрывается StringGrid.


В общем найдено мной одно решение.

Код:

procedure TForm1.strngrd1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
    Row:Integer;
begin
  Row:= Y div strngrd1.DefaultRowHeight;

  strngrd1.Hint :=strngrd1.Rows[Row].Strings[3]+#32+strngrd1.Rows[Row].Strings[4];

end;

Но оно не идеальное по тому что
1) Если список с прокруткой то данный метод уже является не действительным
2) Чтобы повторно показать подсказку на другом ряде надо выйти за пределы StringGrid и заново навести на нужный ряд.(если есть решение данного вопроса буду оч признателен)