ActionList и MessageBox

← →
wall7 © (2004-04-13 21:51) [0]

Всем большой привет!
У меня компонент MainMenu, включен в Модуль данных, тудаже включен компонент ActionList.
Мне надо вывести сообщение MessageBox, при выборе опции в меню, Я хочу сделать это через ActionList, т.к. у меня должно быть еще несколько кнопок на форме для выполнения одинаковых с меню действий. Так как MainMenu в Модуле Даных, при стандартном коде вывода MessageBox, у меня при компиляции возникает ошибка. Код примерно такой:
procedure TDataModule2.DelTableExecute(Sender: TObject);
begin
if Application.MessageBox(PChar("------"
+DataModule2.BookNameDSDesigner.AsString),"----",
MB_OKCANCEL)=id_OK then
DataModule2.BookName.Delete;
end;
Подскажите можно ли решить эту проблему, или альтернатива может есть какая?
Спасибо.

← →
Семен Сорокин © (2004-04-13 21:59) [1]

uses
Forms;
?

Hi!
Я тоже сделал так, но выскакивает ошибка в том - же коде, но уже MB_OKCANCEL(!))=id_OK then

ActionList и MessageBox Найти похожие ветки