Подскажите, как сделать запрос на сохранение, если запись была

← →
Layner © (2003-11-10 15:44) [0]

изменена:
procedure Tdm.q1BeforePost(DataSet: TDataSet);
begin
if MessageDlg (Хотите внести ихменения?", mtConfirmation, [mbYes, mbNo], 0) = IdYes then
q1.Post
.... а что в случае если нет?
end;

← →
bushmen © (2003-11-10 15:47) [1]

q1.Cancel

← →
Layner © (2003-11-10 16:01) [2]

Не, значит так не прокатит. У меня Lookup поля. Если без этого кода, в q1BeforePost все нормально, сохраняет. Но вот если вешаю этот код, Lookup поля лезут в сохранение вместо KeyField :( Что вызывает ошибку...

← →
stone © (2003-11-10 16:36) [3]

procedure Tdm.q1BeforePost(DataSet: TDataSet);
begin
if MessageDlg (Хотите внести ихменения?", mtConfirmation, [mbYes, mbNo], 0) = IdNo then
Abort;
end;

stone © (10.11.03 16:36)
Классно, спасибо. Одно но, придётся два раза жать esс, первый раз для отмены, второй раз для выхода из редактирования. Но это уже другой вопрос.

Подскажите, как сделать запрос на сохранение, если запись была Найти похожие ветки