hint и DBGrid

[victorixx]

Здравствуйте! Встала передо мной одна задачка...

Дано:
ДБГрид, связанный с базой данных.
Особенностями базы данных являются длинные значения полей, то есть значение не всегда (а точнее, почти всегда не) помещается в ячейку.
Необходимо:
При наведении мышки на ячейку, в которой значение отображено не полностью, выводить HINT с полным значением поля.
При этом, чтобы активный Row ДБГрида не менялся.

Видел в данном форуме один похожий случай. Там был выложен код, но в нем использовались такие свойства и методы как ActiveRecord и DataLink. У меня в ДБГриде таких свойств и методов нет.

Есть мысли? Заранее спасибо.

[Kotofff]

Здравствуйте! Встала передо мной одна задачка...

Дано:
ДБГрид, связанный с базой данных.
Особенностями базы данных являются длинные значения полей, то есть значение не всегда (а точнее, почти всегда не) помещается в ячейку.
Необходимо:

... установить набор компонентов EhLib и пользоваться DBGridEh, или как вывести подсказку для ячейки DBGrid
Советую EhLib !

[Stilet]

Могу предложить два способа:
1) onMouseMove для стандартного DBGrid

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var mc:TGridCoord;
begin
 mc:=DBGrid1.MouseCoord(x,y);
 DBGrid1.Hint:=DBGrid1.DataSource.DataSet.Fields[mc.x-1].AsString;
 DBGrid1.ShowHint:=true;
 Application.ActivateHint(Mouse.CursorPos);
end;

2) К черту DBGrid. Делай отображение в StringGrid - там можно навернуть гораздо лучше.

[victorixx]

Спасибо, Stilet. Помогло.
Только вот, интересно, можно как-нить вычислить координаты начала соответствующей ячейки, ну, чтобы хинт появлялся не в позиции мыши, а с начала ячейки? И мож кто-нить знает, как можно программно узнать, что текст выходит за пределы ячейки, то есть чтобы хинт появлялся только в случае, если весь текст не видать?

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

К черту DBGrid. Делай отображение в StringGrid - там можно навернуть гораздо лучше.

К этому я еще не готов - слишком от многих опций DBGrid придется отказаться.

[mihali4]

Я делал так (для листбокса. Вам только чуток переделать):

procedure Tfmain.LBFoundMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
idx : Longint;
xsh,ysh: integer;
rects: TRect;
begin
idx:=LBFound.ItemAtPos(Point(x,y),True);
if (idx<0) or (idx=oldidx) then
Exit;
StaticHint.Visible:=False;
Application.ProcessMessages;
oldidx:=idx;
StaticHint.Caption:='';
if Canvas.TextWidth(LBFound.Items.Strings[idx])>LBFound.Width-4 then
begin
rects:=LBFound.ItemRect(idx);
xsh:=rects.Left;
ysh:=rects.Top;
StaticHint.Caption:=LBFound.Items.Strings[idx]+' ';
StaticHint.Left:=GBFinder.Left+LBFound.Left+xsh+2;
StaticHint.Top:=GBFinder.Top+LBFound.Top+ysh;//Y;
StaticHint.Visible:=True;
Application.ProcessMessages;
end;
end;

GBFinder - это групбокс, на котором находится листбокс LBFound.
StaticHint - это и есть StaticHint...
oldidx - предыдущая координата, где была показана длинная подсказка.