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

Delphist

Дата 19.2.2008, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

В качестве справки я использую *.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 - 19.2.2008, 15:59

Присоединённый файл ( Кол-во скачиваний: 4 )

HtmlHelp.pas 7,89 Kb

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Delphist

Дата 20.2.2008, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

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

--------------------

Rennigth

Дата 20.2.2008, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(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.

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »