Форум: "Базы";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];

Вниз

Отмена удаления записи   Найти похожие ветки 

← →
TSV   (2002-02-04 13:37) [1]

Я делаю так:

procedure TDataModule1.AgenciesQueryBeforeDelete(DataSet: TDataSet);
begin
MessageBeep(MB_ICONEXCLAMATION);
if MessageDlg("Удалить запись?", mtConfirmation,
[mbYes, mbNo], 0) = mrYes then // do nothing
else
Abort;
end;

Удачи.

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c