MaximEG

Добрый день! Delphi Sydney Есть Grid в связке с LiveBidling -> Query В базе MySQL есть поле text Задача редактировать поле в ячейке (многострочное) Использую процедуру Procedure Tmanager_order.grd1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); var idx: Integer; begin idx := Column.Model.IndexOfColumn(Column); case idx of 3: begin Control:=TMemo.Create(nil); Control.OnExit:=mmo5Exit; Control.OnKeyDown:=mmo5KeyDown; end; end; end; procedure Tmanager_order.mmo5Exit(Sender: TObject); begin if TMemo(Sender).Text=dm.man_table_kp.FieldByName('product_name').Text then begin Exit; end else begin dm.comm_orders('update table_kp set product_name='+quotedstr(TMemo(Sender).Text)+' where id = '+dm.man_table_kp.FieldByName('id').AsString); dm.man_table_kp.Refresh -------!!!!! При вызове REFRESH выпадает в ошибку только когда грид находиться в кроле end; end; ошибка ROW, -1 Помогите что с этим делать??

Уважаемые форумчане! Нужна Ваша помощь! Бьют уже 7й день с проблемой Задача сделать"Кастомизацию" при редактировании определенной ячейки - именно отображение Tmemo Код procedure Tmanager_order.grd1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); var idx: Integer; begin idx := Column.Model.IndexOfColumn(Column); case idx of 1: begin Control:=TMemo.Create(self); Control.OnExit:=mmo5Change; Control.OnKeyDown:=mmo5KeyDown; end; end; end; Все рабоатет далее в обработчике Tmemo Onchange dm.comm+('update table1 set field = 1 where ....'+Tmemo(Sender).text); /// данной процедурой обновляем данные из Tmemo(Sender) Ситуация в следующем если при выходе из ячейки через Enter или Tab проблем нет Пр клике мышкой в другую ячейку получаем Access Error Подскажите можно ли отследить изменения при выходе из Tmemo? Если их нет то НЕ обновляем попусту таблицу If Tmemo(Sender).modified - к сожалению отствует