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

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

Форум программистов > Delphi: Общие вопросы > Вызов Help в MDI-проекте (D7)

Автор: AZDesign 30.3.2006, 14:11

Исходные данные:
Проект под Delphi 7, MDI-проект, на дочерней форме есть код

Код


procedure TfmActInspectNew.mmCnDescrpKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   Case Key of
      VK_F1 : Begin
            if (Sender is TWincontrol) then
            begin
              ihc := TWincontrol(Sender).HelpContext;
              if ihc > 0 then application.Helpcontext(ihc)
              else showmessage('No context sensitive help available');
            end;
         end;
      VK_F2 : Begin
            if (Sender is TWincontrol) then
            begin
              ihc := TWincontrol(Sender).HelpContext;
              if ihc > 0 then application.Helpcontext(ihc)
              else showmessage('No context sensitive help available');
            end;
         end;
   end;
end;

Проблема: при нажатии клавиши F2 Help вызывается как часики, сразу и на нужной теме
При нажатии F1 - сначала появляется пустое окно, закрывается, потом открывается снова, но на теме, которая стоит первой в файле .CNT
вне зависимости от значения HelpContext.
Какие могут быть соображения по этой проблеме. ЕСли переведу весь Help на клавишу F2, то меня не поймут.