Código Delphi [-] ... type TMyDbGrid = class(TDbGrid); ... procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Edit1.Text := TMyDbGrid(DBGrid1).InplaceEditor.Text; end;
... type TMyDbGrid = class(TDbGrid); ... procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Edit1.Text := TMyDbGrid(DBGrid1).InplaceEditor.Text; end;