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

← →
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

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

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.
Как эти вещи дописать сюда же. Через запятую не пашет. А в хелпе
нифига не написанно как они должны перичесляться.

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