Диалоговые системные сообщения

[harmager]

Доброго времени суток, уважаемые форумчане.
Встала необходимость при возникновении ошибки в программе выводить сообщение о ней с помощью функции messagebox. В диалоговом окне сообщения присутствуют две кнопки Ok и СПРАВКА. Код вызова окна сообщения представлен ниже:

 messagebox(form1.Handle,'text message','text caption',mb_help+mb_iconerror);

Проблема заключается в следующем - если во флагах функции не указывается контекст справки, как я могу вывести определённую информацию из справочной системы (информации о флаге, касающегося справки в описании данной функции я не встретил). То есть в момент возникновения ошибки появляется данное сообщение, пользователь нажимает на кнопку справка, и программа выдаёт справочную информацию о возникшей ошибке. Справка имеет формат *.CHM

[ych_del]

Вдумчиво RTFM по событию TForm.OnHelp, которое обязательно произойдет, если ты нажмешь в мессагбоксе кнопку "Справка". Там сказано следующее (выделю самое важное):

THelpEvent is the type of an OnHelp event handler.

Unit
Forms

Delphi syntax:
type THelpEvent = function (Command: Word; Data: Longint; var CallHelp: Boolean): Boolean of object;

C++ syntax:
typedef bool __fastcall (__closure *THelpEvent)(Word Command, int Data, bool &CallHelp);

Description
THelpEvent includes the following parameters:

Command indicates the type of help command that was issued. It's meaning depends on the current help system. For example, when using WinHelp, Command is the command used by the WinHelp API. For details on possible commands, see the documentation provided by the developer of the application's help system. For example, if the application uses WinHelp, the possible commands are listed in the WinHelp section of the Win32 Developer's Reference.

Data provides additional data to describe the desired action by the help system. Its value depends on the value of the Command property. Typically, Data specifies a keyword or context ID. For details, see the documentation provided by the application's help system.

CallHelp is set by the event handler. If CallHelp is true when the event handler exits, the application should forward the help command to the help system. If the event handler handles the command, it sets CallHelp to false so that the application does not forward the help command to the help system.

Делаем примерно так:

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
var S: string;
begin
   ShowMessage(IntToStr(Data));
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_F1 then Application.MessageBox('Проверка', 'Caption', MB_HELP);
end;

Бросаешь на форму несколько контролов и в каждом давишь F1. Видишь, что Data везде отличается. Делаешь выводы, пишешь то, что тебе нужно.

[harmager]

ych_del, спасибо конечно за представленную информации, но возможно я не правильно высказал свою проблему...
Мне не нужно выводить справку при нажатии на F1. Мне нужно выводить справку, когда пользователь нажимает на кнопку СПРАВКА в окне, созданном функцией messagebox.
Я так понимаю, если в данном случае происходит событие OnHelp, значит, написав в теле данного событие определённый код, например,

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
form1.label1.Caption:= 'Сработал OnHelp';
end;

, я должен увидеть в метке на форме надпись "Сработал OnHelp". Однако этого не происходит. Вы со мной согласны?

[volvo877]

Ну, допустим,

TForm1 = class(TForm)
   // ...
   { Public declarations }
   procedure WMHelp(var Message: TWMHelp); message WM_HELP;
   // ...

поймает твой WM_HELP, который вышлет кнопка из DialogBox-а. А как ты собрался различать, что показывать-то в хелпе?

Разве что

   Form1.HelpContext := 100; // Выставлять перед вызовом MessageBox-а, и ловить в WMHelp
   MessageBox(Form1.Handle,'text message','text caption',
              MB_OK or MB_HELP or MB_ICONERROR);

[ych_del]

F1 - было использовано в качестве примера. Можешь вместо него F7 заюзать, к примеру, никто не против.
Смысл в том, что при нажатии в диалоговом окне кнопки "Справка" сработает событие Form.OnHelp, в обработчике которого тебе надо будет смотреть на параметр Data (ну, или использовать какие-то свои признаки того, про что будешь показывать справку), и в соответствии с тем, что там пришло, производить какие-либо действия.