Получение значения в TDBGrid перед записью в в БД

Вы можете видеть, что печатается в TDBGrid, смотря на управление TInPlaceEditor. Должна быть предпринята осторожность, Вы должны удостовериться, что управление TInPlaceEdit создано перед попыткой использовать его.

Сдедующая функция покажет данные в столбце сетки, которая редактируется.

procedure TForm1.DBGrid1KeyUp(Sender: TObject;
               var Key: Word; Shift: TShiftState);
var
  B: byte;
 
begin
  for B := 0 to DBGrid1.ControlCount - 1 do
  if DBGrid1.Controls[B] is TInPlaceEdit then
  begin
    with DBGrid1.Controls[B] as TInPlaceEdit do
    begin
      Label1.Caption := 'Text = ' + Text;
    end;
  end;
end;

Смотрите в справочном файле относительно TInPlaceEdit для получения дополнительной информации.

—

03.09.2016

coder

Получение значения в TDBGrid перед записью в в БД

Комментарии