Hint в TStringGrid

← →
GanibalLector © (2010-07-06 14:01) [0]

Добрый день.

Задача: сделать подсказку при наведении мыши на заголовок "грида". Объясню, ячейка небольшая и надпись на заголовке вся не вмещается, поэтому там все сокращено. При наведении мыши я должен отобразить подсказку (полное имя ячейки грида и прочую информацию).

Скриншот: http://pics.livejournal.com/talla2k/pic/0002ts61

Подскажите, куда смотреть?

Спасибо!

← →
Игорь Шевченко © (2010-07-06 14:26) [1]

> Подскажите, куда смотреть?

на torry.net

← →
Deltas © (2010-07-06 15:16) [2]

А можно немного поработать напильником и написать обработчик события Application.OnHint. В этом случае, полезным может оказаться класс THintWindow.

← →
Deltas © (2010-07-06 15:20) [3]

Да и вообще, можно обойтись классом THintWindow, обрабатывая TStringGrid.OnMouseMove(). И, когда курсор перемещается над нужной ячейкой, показывать подсказку.

← →
Deltas © (2010-07-06 15:40) [4]

А можно еще проще:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Col, Row: Integer; NewHint: string; begin StringGrid1.MouseToCell(X, Y, Col, Row); if (Col < 0) or (Row < 0) then NewHint := "" else NewHint := Format("(%d, %d)", [Col, Row]); if NewHint <> StringGrid1.Hint then begin StringGrid1.Hint := NewHint; Application.ActivateHint(StringGrid1.ClientToScreen(Point(X, Y))); end; end;

>GanibalLector © (06.07.10 16:03) [5]
>Правда hint срабатывает раньше, чем нужно, но это мелочи. Найду и >исправлю. Еще раз спасибо.

Паси мышь

Hint в TStringGrid Найти похожие ветки