Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Потверждение закрытия приложения.   Найти похожие ветки 

 
noob   (2004-04-09 00:56) [0]

Мне надо сделать потверждение при закрытие формы. Типа yes/no. Есть ли какая нить функция
вроде Application.Messagebox только с 2мя кнопками? Или надо самаому новую форму создавать и кнопочки рисовать на ней?


 
Gero ©   (2004-04-09 00:58) [1]

Application.MessageBox("", "", MB_YESNO)


 
_Sh_   (2004-04-09 01:01) [2]

Что значит вроде? А сам Application.MessageBox использовать низзя? Если нет, то попробуй
if Windows.MessageBox (0, PChar ("Is there no cow level?"), PChar ("Question"), mb_YesNo or mb_TaskModal or mb_IconQuestion) = mrYes then


 
имя   (2004-04-09 01:06) [3]

Удалено модератором
Примечание: Правила читаем.


 
Рамиль ©   (2004-04-09 09:32) [4]

ИМХО, лучше API MessageBox


 
Bond   (2004-04-09 10:53) [5]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin  
   if (MessageDlg("Вы хотите меня закрыть?",
     mtConfirmation,[mbYes,mbNo],0)=mrNo) then
       action:=caNone;
end;


 
PVOzerski ©   (2004-04-09 11:19) [6]

Ловим событие onCloseQuery. А уж как диалог делать - дело вкуса


 
noob   (2004-04-09 16:20) [7]

Все понял. Всем спасибо.


 
WebErr ©   (2004-04-09 16:23) [8]


> Рамиль ©   (09.04.04 09:32) [4]

Лучше не подключать в Unit Windows.pas, а ограничиться скромным MessageDlg("Something here...", mtError/mtInformation/..., [mbYes, mbNo], 0) = mrYes


 
Gero ©   (2004-04-09 16:36) [9]


> Лучше не подключать в Unit Windows.pas, а ограничиться скромным
> MessageDlg("Something here...", mtError/mtInformation/...,
> [mbYes, mbNo], 0) = mrYes

LOL


 
WebErr ©   (2004-04-09 16:42) [10]


> Gero ©   (09.04.04 16:36) [9]

Гы! Сам в Вар Крафт играю - знаю, что за LOL - это [9] - LOL! :))))


 
noob   (2004-04-10 15:57) [11]

Короче я вот так сделал.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox("out?", "", MB_YESNO) = IDNO then CanClose:=false;
end;
оно даже работает вроде.
Только мне бы еще окошко с вопрос приукрасить.
Типа MB_ICONQUESTION и кнопочку по умолчанию MB_DEFBUTTON2.
Как эти вещи дописать сюда же. Через запятую не пашет. А в хелпе
нифига не написанно как они должны перичесляться.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.033 c
14-1080578383
Тимохов
2004-03-29 20:39
2004.04.25
предложение


1-1080945754
Pattern
2004-04-03 02:42
2004.04.25
Рекорды в Delphi и структуры в C++


14-1080643685
ИМХО
2004-03-30 14:48
2004.04.25
Вопрос про окулистов (и не только про них)


11-1056115592
Gandalf
2003-06-20 17:26
2004.04.25
AutoWars результаты турнира


8-1074354648
Ianus
2004-01-17 18:50
2004.04.25
РЕЧЬ, ЕЕ рапознование....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский