Создание записи в ячейке DBgridEH При выполнение определённого действия? (Delphi Связь с ACCESS)

[vaso465]

Доброго времени суток!
Прошу помощи в составление алгоритма добавления записи в ячейку при выполнение определённого действия!
На форме расположен DbGridEh в нём отображаются такие колонки как-
(Дата) (Преподаватель) (Дисциплина) (ХодВыполнения) (Дата сдачи)
ХодВыполнения является логической колонкой(True\False)!
В программе реализовано закрашивание строки по клику на логический элемент
Необходимо чтоб при клике на логический элемент в соседнюю ячейку В столбце (Дата Сдачи) добавлялась сегодняшняя дата!
Как это лучше организовать?
среда программирования Delphi
пример прилагается

[vaso465]

Должно выглядеть как то так правда немного некорректно работает

procedure TForm2.DBGridEh1CellClick(Column: TColumnEh);
var
  P: TDateTime;
  Year, Month, Day : Word;
 begin
P:= Now; // Now - функция, возвращает текущую дату и время
DecodeDate(P, Year, Month, Day);
if combobox1.ItemIndex>0 then
begin
if (ADOquery1['ХодВыполнения'])= True then
adoquery1.FieldByName('Дата Сдачи').text:=datetostr(p);
end;
end;

[vaso465]

Кому интересно вот решение!

procedure TForm2.DBGridEh1CellMouseClick(Grid: TCustomGridEh;
  Cell: TGridCoord; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  P: TDateTime;
  Year, Month, Day : Word;
  State: TGridDrawState;
            begin
P:= Now; // Now - функция, возвращает текущую дату и время
DecodeDate(P, Year, Month, Day);
if combobox1.ItemIndex>0 then
             begin
with DBGrideh1.Canvas do
             begin
if (ADOquery1['ХодВыполнения'])= true and
not (gdSelected in State) then
begin
IF adoquery1.FieldByName('Дата Сдачи').text=''THEN
adoquery1.FieldByName('Дата Сдачи').text:=datetostr(p);
end;
end;
end;
end;

[Аватар]

DecodeDate(P, Year, Month, Day);
if combobox1.ItemIndex>0 then
             begin
with DBGrideh1.Canvas do
             begin

Это все зачем? Если нужна просто дата без времени, то функция Date есть

Присвоение в поле Дата Сдачи даст ошибку, если запись датасета не в состоянии редактирования

[vaso465]

Это сделано под пример который указывается в вопросе темы
а

if combobox1.ItemIndex>0 then

сделанно так только потому что первая запись в combobox открывает немного иную таблицу'сводную' где нет некоторых таблиц

[Аватар]

with DBGrideh1.Canvas do

Это зачем? Ты же не рисуешь на канвас грида. Хотя можно, только не в этом событии

[vaso465]

В программе так же и цвет использовался на основе него сделал!

[Аватар]

Подергай теперь в том гриде вверх-вниз и понаблюдай за цветом

[vaso465]

Всё норм работает! Правда обратно не работает типа если false то очистить

[vaso465]

Сообщение от Аватар

Подергай теперь в том гриде вверх-вниз и понаблюдай за цветом

Посмотрите Может Придумаете как Очищать При False