Главная страница
    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.47 MB
Время: 0.037 c
1-1081147443
Ткаченко Сергей
2004-04-05 10:44
2004.04.25
Очистка TImage???!!!


3-1080290475
LameFox
2004-03-26 11:41
2004.04.25
Переход с Access на MSSQL


3-1080807471
ilya
2004-04-01 12:17
2004.04.25
Active Directory


3-1080663041
incm
2004-03-30 20:10
2004.04.25
Проблема Table Language


14-1080849799
Undert
2004-04-02 00:03
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский