Показать Hint ы в StringGride

← →
ghost_by © (2002-03-06 20:20) [0]

Можно ли (если можно то как?) показывать Hint"ы в StringGrid"е.
т.е. Есть StringGrid. В нем куча строк неумещающихся в ячейке. Нужно как нибудь показывать Hint"ы в ячейках в которых неумещается текст. Может как ловить какие нибудь сообщения винды типа WM_GET_HINT_TEXT (неуверен, что есть такое), или иначе.

Очень нужно. Помогите пожалуйста...

← →
Delirium © (2002-03-06 20:32) [1]

Создавай в RunTime THintWindow и рисуй на нём что хочешь, и когда хочешь.

← →
Song © (2002-03-06 20:35) [2]

Всё намного проще: обрабатывай onMouseMove

← →
ghost_by © (2002-03-07 17:41) [3]

обрабатывай onMouseMove - и что мне с ним делать?

← →
ghost_by © (2002-03-07 17:56) [4]

Создавай в RunTime THintWindow и рисуй на нём что хочешь, и когда хочешь. - А пример можно?

← →
Song © (2002-03-07 19:38) [5]

Я приведу тебе текст процедуры, которая работает для любого TStringGrid, вот только какой образовательный эффект из этого?

procedure TForm1.StringGrid3MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
Var Rect:TRect;
ACol,ARow:Integer;
begin
With TStringGrid(Sender) Do
try
MouseToCell(X,Y,ACol,ARow);
Rect:=CellRect(ACol,ARow);
IF Canvas.TextWidth(Cells[ACol,ARow])>(Rect.Right-Rect.Left) then Hint:=Cells[ACol,ARow] else Application.CancelHint;
except
Application.CancelHint;
end;
end;

← →
ghost_by © (2002-03-20 07:47) [6]

Спасибо за пример.
Но - назрела необходимоть сделать то-же самое в DBGrid"e, а там нет свойств вроде Cells. Если я правильно понял то там можно только к текущей строке обратится. Может кто знает?

Вы можете получить ячейку, которая находится под курсором мыши через MouseCoord:

Returns the row and column indexes of the cell that contains a point specified in screen coordinates.

type TGridCoord = record
X: Longint;
Y: Longint;
end;

function MouseCoord(X, Y: Integer): TGridCoord;

А до собственно текста в этой ячейке как достучаться?

см. пример в Дельфи по свойству Fields

Показать Hint ы в StringGride Найти похожие ветки