Автоподгонка ячейки в DBGride

[artemavd]

У меня вопрос про DBGRID. Как сделать, чтобы если вводимый текст в ячейку не помещается по длине, переносился на следующую строку, но оставался бы в этой же ячейки? Как это сделано при работе с таблицей в MS Word. Заранее не известно в каких ячейках текст поместится, а в каких нет. Заранее спасибо за помощь.

[mihali4]

Стандартный DBGrid этого не умеет. Можно использовать сторонние компоненты, например, ЕхDBGrid, DbAltGrid.
Можно поступить по-другому - при наведении мышки на такую ячейку выводить хинт с полным текстом, причем сам хинт "приклеить" к левому верхнему углу ячейки, тогда будет эффект, как от расширения ячейки на нужную длину.

[artemavd]

Можно поступить по-другому - при наведении мышки на такую ячейку выводить хинт с полным текстом, причем сам хинт "приклеить" к левому верхнему углу ячейки, тогда будет эффект, как от расширения ячейки на нужную длину.

Это вариант. А как это сделать?

[_SERGEYX_]

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ScrPt, GrdPt: TPoint;
  Cell: TGridCoord;
begin
  ScrPt := Mouse.CursorPos;
  GrdPt := DBGrid1.ScreenToClient(ScrPt);
  Cell := DBGrid1.MouseCoord(GrdPt.X, GrdPt.Y);
  if (Cell.X <= 0) or (Cell.Y <= 0) then
  Form1.Caption:='Мышь вне зоны грида' else
  Form1.Caption:='Мышь над полем '+IntToStr(Cell.X)+
  ' в строке '+IntToStr(Cell.Y);
end;

Зная, где находится курсор, выводи хинт или то что нужно

Но, лучший вариант - это не использовать стандартный DBGrid вообще. Он не пригоден для работы. Лучше поставь DBGridEh, TopDBGrid, xDBGrid...

[artemavd]

Хорошо) В заголовке формы отображается позиция курсора. Номер ячейки в строке и в столбце. А как же сделать тогда, чтобы показывалась не номер ячейки, а ее содержимое? может массив создать по столбцам?

[_SERGEYX_]

Можно прочитать нужную строку через lookup(), но зачем изобретать велосипед? Наводить на ячейку мышь и ждать появления хинта не серьезно. Установи нормальный грид и сделай автовысоту строки.