Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Глючит MessageDlg

Автор: CHERRY 2.8.2007, 15:11

Код


Var dlg:Word;
begin
 dlg:=MessageDlg('Пользователь '+Table1.FieldByName('Name').AsString+#10+
    'и все его данные будут удалены!!!',mtConfirmation, [mbYes,mbNo], 0,mbNo);
 if dlg=mrOk Then
 Begin
 .....................
 end;
end;

MessageDlg возвращает значение 6 при нажатии на Yes и 7 при нажатии на No?
Но mrOk=1 и условие не выполняется

Автор: MetalFan 2.8.2007, 15:26

Цитата(CHERRY @ 2.8.2007, 15:11

)

Но mrOk=1 и условие не выполняется

интересно, а с чего оно будет выполнятся? у тебя кнопки ОК нет. сравнивай с mrYes/mrNo

Автор: CHERRY 2.8.2007, 15:30

Спасибо! Затмение нашло. Со вчерашнего дня не мог увидеть.
Прошу прощения за глупый вопрос