Передать вводимый текст в ячейку DBGrid

[artemavd]

Добрый день!
Надо мне это, да.
Мне надо, когда выполняется изменение или ввод нового значения в ячейку DBGrid передать это значение в строковую переменную.
Да, я знаю, что DBGrid не содержит данные, отображает и блабла. Мне и не надо это.
Мне надо просто получить вводимый текст под курсором.
Как?

[evg_m]

Да, я знаю, что DBGrid не содержит данные, отображает и блабла. Мне и не надо это.

осталось продолжить, данные на самом деле хранятся в полях(TField) ассоциированного набора данных (DataSet).
и туда же заносятся в случае их редактирования. (DataSource.OnDataChange ???)

Dbgrid.SelectedColumn.Field.Text \Value \....

в случае DataSource.OnDataChange он сам сообщает изменяемое поле

type TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object;

правда при этом надо как-то различать "источники изменений"
- "обычная" загрузка данных
- собственно редактирование DataSource.State =dbEdit ???

[artemavd]

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

в случае DataSource.OnDataChange он сам сообщает изменяемое поле
Код:

type TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object;

Да я пробовал в это событие, не получилось что-то...

[evg_m]

Да я пробовал в это событие, не получилось что-то...

Да возможно, и скорее всего, данное событие будет только раз, в КОНЦЕ редактирования.
Для постоянного "контроля" наверное подойдет

TDBGrid -> TcustomGrid
property InplaceEditor: TInplaceEdit;

TInplaceEdit is not a data-aware control, but can work with a data-aware grid such as TDBGrid, allowing the grid to fetch or post the text, and allowing the grid to impose a mask to limit the text of the edit control to data that is valid.

[Аватар]

Только события подходящего нет, нужно с сообщениями разбираться. А так показывает, но только текст до нажатия клавиши

type TMyGrid = Class(TDBGrid);

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Assigned(TMyGrid(DBGrid1).InplaceEditor) then Edit1.Text:=TMyGrid(DBGrid1).InplaceEditor.Text;
end;

ADD А так нормуль:

const MY_TESTMESSAGE = WM_USER+1;
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ...
  private
    procedure MYTESTMESSAGE(var Message: TMessage); message MY_TESTMESSAGE;
    ...
  end;

...

type TMyGrid = Class(TDBGrid);

procedure TForm1.MYTESTMESSAGE(var Message: TMessage);
begin
  if Assigned(TMyGrid(DBGrid1).InplaceEditor) then Edit1.Text:=TMyGrid(DBGrid1).InplaceEditor.Text;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  PostMessage(Handle,MY_TESTMESSAGE,0,0);
end;