Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c