Как узнать значения, которые пользователь вводит в 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