Delphi: ошибка в MessageDlg

← →
Davron (2003-12-02 18:13) [0]

Программе дают ошибка в MessageDlg. У меня вот такая процедура:

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg("Вы уверены выйти из программ?", mtConfirmation, [mbYesNoCancel],0);
end;

Помогите где уменя ошипка и как испавляется.

← →
Sergey_Masloff (2003-12-02 18:21) [1]

MessageDlg("Вы уверены выйти из программ?", mtConfirmation, mbYesNoCancel,0);

← →
Тимохов (2003-12-02 18:22) [2]

Я...я...ме-е-е-диум.
На-а-растоянии ви-и-ижу какое у тебя сообщение об ошибке...
И уже вырабатываю варианты ее решения...

По делу: Вопрос конкретнее ставить можно?

← →
Sergey_Masloff (2003-12-02 18:23) [3]

Хотя лично я считаю ошибкой вот это
>" "Вы уверены выйти из программ?""
Вобщем, проезжая мимо Таганрога с меня слетела шляпа.

← →
dataMaster (2003-12-02 18:23) [4]

Исправь на [mbYes, mbNo, mbCancel]

← →
Sergey_Masloff (2003-12-02 18:24) [5]

>Тимохов
Да там в глаза бросается. Небось ординал тайп реквайрд, что ж еще...

← →
Тимохов (2003-12-02 18:25) [6]

при том приколько, что варианта три "да, нет, отменить"
Типа:
-мальчик ты пионер?
-да
-Да!!!
-не-е-т (всхлипываю)
-Нет!!!
-я не знаю (плача)

← →
Sergey_Masloff (2003-12-02 18:25) [7]

dataMaster © (02.12.03 18:23) [4]
>Исправь на [mbYes, mbNo, mbCancel]
ай, маладца... ;-)

← →
Тимохов (2003-12-02 18:26) [8]

2Sergey_Masloff (02.12.03 18:24) [5]
Тем ни менее ясно дело в чем ошибка.
Но может быть и такое, что в uses нет dialogs. Верно ведь?
Конкретнее вопросы надо ставить...

← →
dataMaster (2003-12-02 18:27) [9]

>Sergey_Masloff
ай, маладца... ;-)

Между прочим, работает... ;-)

← →
Sergey_Masloff (2003-12-02 18:31) [10]

dataMaster © (02.12.03 18:27) [9]
>Между прочим, работает... ;-)
кто б сомневался
только
const mbYesNoCancel = [mbYes, mbNo, mbCancel];
для того борланды и объявляли чтобы так не писать ;-)

← →
dataMaster (2003-12-02 18:34) [11]

>Sergey_Masloff
для того борланды и объявляли чтобы так не писать

хм.. действительно :-)

Delphi: ошибка в MessageDlg Найти похожие ветки