MessageDialog - Общие вопросы Delphi

zzzzz · 22.10.2008, 02:31

Подскажите пожалуйста как можно ещё вызвать окошко с кнопками 'Yes' и 'No'? У меня вот есть пример, но мне не подходит то, что на нём написано information
var resp:word;
resp:=MessageDlg('....',mtinformati on,[mbYes,mbNo],0);
if resp = mrYes then begin
.....
end
else ....
Может есть ещё какое-то диалоговое окно?????
А то так не хочется под каждый случай новую форму лепить, и самому всё прописывать!!!

Kostia · 22.10.2008, 03:36

MessageBox(Form1.Handle,'Вы проиграли!','Может еще разок?',MB_YESNO or MB_ICONINFORMATION);

zzzzz · 22.10.2008, 13:42

Спасибо!!!

popugayka · 23.10.2008, 10:49

Спасибо тебе огромное Kostia за ответ.

22.10.2008, 02:31	#1
zzzzz Пользователь Регистрация: 25.05.2007 Сообщений: 69	MessageDialog Подскажите пожалуйста как можно ещё вызвать окошко с кнопками 'Yes' и 'No'? У меня вот есть пример, но мне не подходит то, что на нём написано information var resp:word; resp:=MessageDlg('....',mtinformati on,[mbYes,mbNo],0); if resp = mrYes then begin ..... end else .... Может есть ещё какое-то диалоговое окно????? А то так не хочется под каждый случай новую форму лепить, и самому всё прописывать!!!

22.10.2008, 03:36	#2
Kostia Участник клуба Регистрация: 21.11.2007 Сообщений: 1,692	MessageBox(Form1.Handle,'Вы проиграли!','Может еще разок?',MB_YESNO or MB_ICONINFORMATION);

22.10.2008, 13:42	#3
zzzzz Пользователь Регистрация: 25.05.2007 Сообщений: 69	Спасибо!!!

23.10.2008, 10:49	#4
popugayka Новичок Джуниор Регистрация: 23.10.2008 Сообщений: 1	Спасибо тебе огромное Kostia за ответ.