Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Ошибка при вызове справки

Автор: Delphist 19.2.2008, 15:55

В качестве справки я использую *.chm - файл. Каждый раздел имеет свой контект. Для работы с chm-справкой я использую HtmlHelp.pas.
При нажатии кнопки "Помощь" расположенная на форме, срабатывает такой код:

Код


procedure
  TMyForm.InvokeHelp(aHelpContext: integer);
begin

  if (HtmlHelpInstalled = True) then
    HH(Handle, PChar(Application.HelpFile), HH_HELP_CONTEXT, aHelpContext);
end;

procedure
  TMyForm.bbHelpClick(Sender: TObject);
begin

  InvokeHelp(HelpContext);
end;

Ошибка не возникает, если я делаю вызов справки при нажатии на кнопку F1, то срабатывает код расположенный в OnKeyDown формы:

Код


  if Key = VK_F1 then
  begin
    if (ActiveControl.HelpContext > 0) then
      InvokeHelp(ActiveControl.HelpContext)
    else
      InvokeHelp(HelpContext);
  end

Так вот вызов через F1 приводит к ошибке

Код


Project MyProc.exe raised exception class EHelpSystemException with message 'No context-sensitive help installed'.

В чем может быть проблема?

Автор: Delphist 20.2.2008, 10:50

Вообщем причина даже не в том, что ты предложил. Дело в следующем, я сейчас выкинул использование HtmlHelp.pas, и хочу вообще отказаться от использования справки, как это сделать. А то у меня нажитие на F1 приводит к посылке сообщения WM_HELP как заставить, чтобы нажатие F1 не приводило к посылке WM_HELP'a, вроде ShortCut'oв на F1 нигде не стоит.

Автор: Rennigth 20.2.2008, 12:22

Цитата(Delphist @ 20.2.2008, 10:50

)

Вообщем причина даже не в том, что ты предложил.

Может передохнешь? А то уже общаешься сам с собой smile

Добавлено через 4 минуты и 23 секунды

Цитата(Delphist @ 20.2.2008, 10:50

)

А то у меня нажитие на F1 приводит к посылке сообщения WM_HELP как заставить, чтобы нажатие F1 не приводило к посылке WM_HELP'a, вроде ShortCut'oв на F1 нигде не стоит.

И не должно стоять, это система сама посылает.

Цитата

WM_HELP Message
Indicates that the user pressed the F1 key. If a menu is active when F1 is pressed, WM_HELP is sent to the window associated with the menu; otherwise, WM_HELP is sent to the window that has the keyboard focus. If no window has the keyboard focus, WM_HELP is sent to the currently active window.

Добавлено через 11 минут и 32 секунды
А отключить это можно примерно таким образом:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    function HelpEvent(Command: Word; Data: Longint;
      var CallHelp: Boolean): Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHelp := OnHelp;
end;

function TForm1.HelpEvent(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  Result := False;
  CallHelp := False;
end;

end.