Главная страница
    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.039 c
6-1077886764
ALeX.B.
2004-02-27 15:59
2004.04.25
Помогите довести до ума!


3-1080667394
StatusQuo
2004-03-30 21:23
2004.04.25
DbLookupComboBox


1-1081628476
Ertong
2004-04-11 00:21
2004.04.25
Proxies.dcu


1-1081514472
Denis_Visma
2004-04-09 16:41
2004.04.25
Прогресс бар на процесс конекта...


4-1077474261
Opilki_Inside
2004-02-22 21:24
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский