Как получить текст из ячейки, где мышь?
Как получить текст из ячейки, где мышь?
Как получить текст из ячейки, где мышь? Мой вариант: procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin //глобальные mx,my mx:=X; my:=Y; DBgrid1.Invalidate; end; procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin (Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State); if ((mx>Rect.Left) and (my>Rect.Top)) then Label1.Caption:=Field.Text; end;
