Перейти к содержанию
  • 0
MaximEG

Tgrid+Tmemo как CreateCustomEditor

Вопросы

Уважаемые форумчане! Нужна Ваша помощь! Бьют уже 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 - к сожалению отствует 

 

 

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

Ответы на этот вопрос пока отсутствуют

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...