Как узнать значения, которые пользователь вводит в TDBGrid? |
Previous Top Next |
Code: |
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; |
©Drkb::03020
Взято из http://forum.sources.ru