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 - к сожалению отствует