потверждение при закрытии формы

← →
noob (2004-04-13 01:47) [0]

Мне надо было сделать потверждение при закрытии формы я сделал так.

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

← →
Германн © (2004-04-13 02:16) [1]

MB_XXX or MB_YYY.
Если в хэлпе написано что-то типа - "These values can be combined to obtain the desired effect", то скорее всего это функция "ИЛИ".

← →
Роман К (2004-04-13 02:53) [2]

Application.MessageBox("out?", "", MB_YesNo+MB_DefButton2+MB_IconQuestion);

← →
Германн © (2004-04-13 03:19) [3]

Я, лично, как человек, который зарабатывает свой кусок хлеба программированием для микропроцессоров, и по этому знающий особое значение т.н. "битовых масок" - никогда не написал бы так: "MB_YesNo+MB_DefButton2+MB_IconQuestion"!
Но только так: "MB_YesNo or MB_DefButton2 or MB_IconQuestion"!
Хотя для Делфи это может быть и монопени..., красиво однажды выразился Digitman. :-)

Не зная, что скрывается за именами - только OR, или будет глубоко, как сказал незабвенный Digitman

← →
Роман К (2004-04-13 12:31) [5]

2Германн: дело тут не в Делфи, а в значениях этих констант(2^n) поэтому можно использовать "or", "+" и даже "xor" :) Кому что нравится, хотя более универсально конечно "or"

потверждение при закрытии формы Найти похожие ветки