обращение к определенному полю dbgrideh

[kate158]

привет!
еСть у меня на форме dbgrideh. в нем есть поле типа boolean. как сделать так: пользователь ставит галку в true, а ему сообщение вылазит? написала код (событие onclick на dbgrid), но фигня, сообщение вылазит если пользователь кликнет по любому полю.

  
    if not dm.NOTE.FieldByName('In_job').AsBoolean then begin // если чекбокс в нуле
      if MessageDlg('Вы действительно хотите отправить?',    
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
        dbgrideh3.ReadOnly:= false;
        dm.note.edit;
        dm.note.post;
      end
      else abort
    end
    else begin
      dbgrideh3.ReadOnly:= true;
    end;

[Аватар]

Можно в BeforeEdit датасета запоминать исходное состояние поля. В AfaterPost значение сравнивать с запомненным и если с False стало True, то выдавать сообщение. Но это отработает только после Post-а. Если поля явно созданы, можно поиграться с событиями OnChange и/или OnSetText фиелда и в нем определять изменилось ли состояние. Так отработает еще до Post-а в момент изменения значения поля

[kate158]

кажется, проблема решилась. есть такая штука как SelectedIndex. она в коде:

procedure TForm1.DBGridEh3CellClick(Column: TColumnEh);
begin
 if DBGridEh3.SelectedIndex = 2 then begin
      if not dm.NOTE.FieldByName('In_job').AsBoolean then begin
        if MessageDlg('Действительно отправить?',
          mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
          dbgrideh3.ReadOnly:= false;
          dm.note.edit;
          dm.note.post;
        end
        else abort
      end
      else begin
        dbgrideh3.ReadOnly:= true;
 end;
end;