Как вывести сообщение типа "внимание" при удалении записи из БД

[Alex_Sokolov]

помогите! в Delphi создаю приложение для работы с базой данных.
Как вывести сообщение типа "внимание" при удалении записи из БД
База данных BDE.
написано у меня так:

procedure TForm1.N5Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Ты действительно хочешь удалить '
+DataModule2.BookName) ругается здесь , 'Внимание!!!',
MB_OKCANCEL)=id_OK then
DataModule2.BookName.Delete;
end;

[maladoy]

var rez:TmodalResult;
begin
rez:=messageDlg('твой текст',mtWarning,[mbOk,mbNo],0);
if rez = mrOk then действие;
if rez = mrNo then действие;
end;

[Serge_Bliznykov]

Ошибка, имхо, в +DataModule2.BookName
Какого типа BookName ?
На крайний случай плюсуйте имя объекта
...+DataModule2.BookName.Name
И что Вы именно хотите спросить?! :-(

[mihali4]

И что Вы именно хотите спросить?! :-(

Да, уж... Но судя по заголовку:

при удалении записи из БД

есть подозрение, что должно быть что-то вроде:
...действительно хочешь удалить '+DataModule2.BookName.FieldByName(имя поля).AsString...

[Serge_Bliznykov]

Сообщение от mihali4

есть подозрение, что должно быть что-то вроде:
...действительно хочешь удалить '+DataModule2.BookName.FieldByName( имя поля).AsString...

Да. Думаю, что именно этого автор вопроса и хотел!
только уточню - имя поля должно быть в кавычках (апострофах):

...+DataModule2.BookName.FieldByName('имя_поля').AsString...

p.s. mihali4, без обид, плиз. это я уточнил для Alex_Sokolov.

[Alex_Sokolov]

BookName это TTable его название

[Alex_Sokolov]

procedure TForm1.N5Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Ты действительно хочешь удалить '
+DataModule2.BookNameDSDesigner.AsString), 'Внимание!!!',
MB_OKCANCEL)=id_OK then
DataModule2.BookName.Delete;
end;

раньше было так при работе с Access.

незнаю что такое: DSDesigner

[mihali4]

незнаю что такое: DSDesigner

Это имя поля (должно быть). Из него берется значение, которое и подставляется в запрос на подтверждение удаления.
Если поле объявлено явно (т.е. присутствует в перечне полей BookName по двойному клику), то так можно написать.
А если поля явно не объявлены, то - DataModule2.BookName.FieldByName('D SDesigner').AsString. Впрочем, это подойдет всегда.
Хотя название DSDesigner больше похоже на DataSourceDesigner...
Уточните сами, значение какого поля вы хотите использовать и подставьте.