Диалог

← →
Tornado © (2004-04-01 12:53) [0]

Подскажите пожалуйста как сделать чтобы при выводе диалога:

MessageDlg("Сообщение", mtInformation, [mbOK, mbHelp], 0)

при нажатии на кнопку Yes выполнялось определенное действие а при нажатии на кнопку Help вызывалась справка (например: ShellExecute(0, nil, PChar("hh.exe"), PChar(ExtractFilePath(paramstr(0)) + "help\helpvtg.chm::/presentation.html"), nil, SW_SHOWNORMAL);)

← →
Anatoly Podgoretsky © (2004-04-01 12:56) [1]

Система посылает сообщение WM_Help

← →
Семен Сорокин © (2004-04-01 12:56) [2]

case MessageDlg(...) of
mrOk: ...
mrHelp: ....
end

← →
Tornado © (2004-04-01 12:58) [3]

спасибо!

← →
Tornado © (2004-04-01 13:26) [4]

все вроде хорошо но Дельфи грит что не знает что такое mrHelp...

← →
Diamond Cat © (2004-04-01 14:01) [5]

if MessageDlg("Сообщение", mtInformation, [mbOK, mbHelp], 0)=mrOK then showmessage("вы выбрали автоуничтожение харда");

← →
Tornado © (2004-04-01 14:22) [6]

>>> Diamond Cat © (01.04.04 14:01) [5]

хорошо а как быть с хелпом? в качестве результата возвращаются только

* mrNone - окно сообщения закрыто не с помощью кнопки (Alt+F4 или кнопкой "закрыть")
* mrAbort
* mrYes
* mrOk
* mrRetry
* mrNo
* mrCancel
* mrIgnore
* mrAll

а mrHelp - нет такого

← →
Семен Сорокин © (2004-04-01 14:48) [7]

Tornado © (01.04.04 14:22) [6]
см. [1]

← →
Anatoly Podgoretsky © (2004-04-01 14:56) [8]

А никак , по нажатию клавишы Help не происходит выход из диалога. А раз выход не происходит, то а каком коде возврата может идти речь?

← →
Tornado © (2004-04-01 15:05) [9]

>>> Anatoly Podgoretsky © (01.04.04 14:56) [8]

понятно...но как же использовать WM_Help?

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
Description
Call MessageDlg to bring up a message box and obtain the user"s response. The message box displays the value of the Msg parameter. Use the DlgType parameter to indicate the purpose of the dialog. Use the Buttons parameter to indicate what buttons should appear in the message box. Use the HelpCtx parameter to specify the context ID for the help topic that should appear when the user clicks the help button or presses F1 while the dialog is displayed.
ЧИТАЙ СПРАВКУ ХОТЬ ИНОГДА!!!!!!!!!!!!!!!!!!!!!!!!!

Tornado, посмотри что возвращает messagedlg при нажатии на mbOK и всё!!! Получишь интеджеровское значение, вот и ставь под иф.
i:=messagedlg("sdfgsfg",mtinformation,[mbok,mbhelp],0);
case i of
1:begin...end
и т. д.

Извеняюсь:... что возвращает при mbHelp...

> Извеняюсь:... что возвращает при mbHelp...
повторяю еще раз

> Use the HelpCtx parameter to specify the context ID for
> the help topic that should appear when the user clicks the
> help button or presses F1

Диалог Найти похожие ветки