MessageDlg, три варианта ответа, да, нет, отмена.

← →
Zhekson (2008-10-27 11:14) [0]

С mrYes и mrNo всё понятно else разведёт, а вот как выйти на mrCancel, без исключения предыдущих двух вариантов???

← →
Palladin © (2008-10-27 11:16) [1]

1. case
2. не стесняемся переменные заводить

← →
Zhekson (2008-10-27 11:22) [2]

Palladin © (27.10.08 11:16) [1]
что-то у меня та же кака, только вид сзади, получается... я же не могу до вызова MessageDlg определить какая кнопка будет нажата(((

← →
Palladin © (2008-10-27 11:25) [3]

у тебя серьезные проблемы выше плеч...

← →
brother © (2008-10-27 11:27) [4]

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

MessageDlg returns the value of the button the user selected. The following table lists the TMsgDlgBtn values for each type of button that can appear in the message box, and the corresponding value that is returned if the user selects that button:
что по твоему возвращает данная функция?

← →
Zhekson (2008-10-27 11:30) [5]

ну это лучше, чем как у тебя, ниже пупа... это ты так самовыразился сейчас???

а вобще я задал вопрос тем начинающим, которые знают ответ на этот вопрс... Мужички, кто сталкивался с такой задачей и решил её(Палладинчик, с тобой всё ясно, не спрашиваю), проинформируйте плз. недалёкого...

← →
Zhekson (2008-10-27 11:38) [6]

brother © (27.10.08 11:27) [4]
возвращает значение выбранной кнопки... и предположим это Cancel, как его обработать не исклчая возможности, что могла быть нжата любая другая кнопка и она будет обработана???

if MessageDlg(Сохранить перед выходом ?", mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrYes then if SaveDialog1.Execute then SaveProj(SaveDialog1.FileName)

вот код, который запускается в обработчике FormCloseQuery и в случае нажатия кнопки Yes, сохраняет данные, No, просто выходит, осталось прикрутить mrCancel, тогда переменная CanClose остановит выгрузку приложения.

← →
brother © (2008-10-27 11:42) [7]

> if MessageDlg(Сохранить перед выходом ?", mtConfirmation,
>
> [mbYes, mbNo, mbCancel], 0) = mrYes then if SaveDialog1.Execute
> then SaveProj(SaveDialog1.FileName)

задумайся над этим...

← →
Zhekson (2008-10-27 11:45) [8]

2 brother © (27.10.08 11:42) [7]
в какого типа переменную можно записать возвращаемое значение ф-ции MessageDLG???

← →
brother © (2008-10-27 11:46) [9]

> function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
> Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

← →
Virgo_Style © (2008-10-27 12:42) [10]

орех

← →
Zhekson (2008-10-27 12:43) [11]

:)))

Virgo_Style © (27.10.08 12:42) [10]
согласен)))

понедельник)))

← →
Ega23 © (2008-10-27 12:58) [12]

> в какого типа переменную можно записать возвращаемое значение
> ф-ции MessageDLG???

case MesageDlg(......) of mrYes : DoOnMrYes(); mrNo : DoOnMrNo(); mrCancel : DoOnMrCancel(); else ShowMessage("Чё-то ты не то, братан, нажал..."); end;

← →
Правильный$Вася (2008-10-27 13:02) [13]

> возвращает значение выбранной кнопки... и предположим это
> Cancel, как его обработать не исклчая возможности, что могла
> быть нжата любая другая кнопка и она будет обработана???

т.е. ты сейчас утверждаешь, что функция может вернуть значение сразу ДВУХ нажатых кнопок, которые нужно отработать ВМЕСТЕ???

← →
Zhekson (2008-10-27 13:06) [14]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var ButRet: word; begin if modification = true then ButRet := MessageDlg("Ega23, а может такой вариант не хуже???", mtConfirmation, [mbYes, mbNo, mbCancel], 0); if ButRet = mrYes then if SaveDialog1.Execute then SaveProj(SaveDialog1.FileName); if ButRet = mrCancel then CanClose := false; end;

← →
Ega23 © (2008-10-27 13:09) [15]

> Ega23, а может такой вариант не хуже???

С точки зрения работоспособности - однозначные варианты.
С точки зрения эстетики - твой мне не нравится. Но это субъективно, сам понимаешь.

← →
Zhekson (2008-10-27 13:09) [16]

Правильный$Вася (27.10.08 13:02) [13]
да не... просто я не сразу вкурил, как присвоить возвращаемое значение ф-ции MessageDlg, для последующего анализа(((

← →
{RASkov} © (2008-10-27 13:13) [17]

> [5] Zhekson (27.10.08 11:30)

Наглый ты. Тимур тебе еще в первом посту ответ правильный дал.... а уже в [3] он поставил диагноз, причем - верный.

← →
Zhekson (2008-10-27 13:13) [18]

Ega23 © (27.10.08 13:09) [15]
согласен, твой вариант симпоНтишнее смотрится... надеюсь когда-нибудь прийду к тому, чтобы исходить не только из работоспособности и относительной эстетики...

← →
{RASkov} © (2008-10-27 13:16) [19]

> [14] Zhekson (27.10.08 13:06)

ButRet := mrXuge :)

← →
Zhekson (2008-10-27 13:21) [20]

{RASkov} © (27.10.08 13:13) [17]
:))) тебе неинтересна суть ветки, ты сюда зашёл поднять с низов обсуждения оскорбления, чтобы убедить меня, что ты умный, а я дурак... Но хочу обратить твоё внимание, что нашлись люди способные разобраться в сути моего недопонимания и помоч даже такому ореху, как я, а от тебя вообще нет толку на этом форуме... Ты кроме разжигания конфликтов и самолюбования своими глубочайшими познаниями ничего не умеешь!!! Впринципе ты это всё и без меня и без инета знаешь.

На этом оставляю за собой право не воспринимать всерьёз ни тебя, ни твои умозаключения ;)

> [20] Zhekson (27.10.08 13:21)

Ты всё верно заметил, молдодец. Увы, только в первом предложении... ;)
И конфликт разжог ты, а не я. Можешь теперь гордится этим :)

> молдодец

без лишней "д". Сорри... :)

> [20] Zhekson (27.10.08 13:21)
> нашлись люди способные разобраться в сути моего недопонимания
> и помоч даже такому ореху, как я

Эт ты так думаешь.... Просто людям жалко стало сопливого и ноющего негодяя и они ему(тебе) протянули плоточек, который тебе давали еще в самом начале, но ты, как верно сам заметил - дурак, его выкинул....
:о)
Ладно, не обижайся. Просто будь вежливее.... Даже после [3] ибо тебе помощь нужна, а не другим тут...

← →
Zhekson (2008-10-27 13:30) [24]

А я - да. вечно тут хожу, поднимаю ветки старые и пытаюсь все время друг на друга всех натравить..... и уж точно никогда и никому и ни в чем не помогаю...
Эт моя работа такая :)))

> ну да, и с "ь" в слове гордиться ;)

А это мой стиль, так что - прими как есть :)

Вот интересно: кто из вас окажется умнее и первым заглохнет?

> Ega23 (27.10.2008 13:39:26) [26]

Умнее окажется модератор

MessageDlg, три варианта ответа, да, нет, отмена. Найти похожие ветки