Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Help файлы \ Использование справки HTML Help

Использование справки HTML Help

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Использование справки HTML Help

Зависимости: hhctrl.ocx
Автор:       Oleg Gashev, oleg@gashev.com, ICQ:115695048, Israel, Rehowot
Copyright:   http://gashev.com
Дата:        04 мая 2002 г.
***************************************************** }

unit uHtmlHelp;

interface
uses Windows;
function HtmlHelpA(hwndCaller: HWND; pszFile: PAnsiChar;
  uCommand: UInt; dwData: DWORD): HWND; stdcall; external 'hhctrl.ocx';

implementation

end.

unit SDIMAIN;
// Main Window
interface

uses........., uHtmlHelp, .....;

const
  HH_CLOSE_ALL = $0012;

  ......
  ......

function TSDIAppForm.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  HtmlHelpA(handle, PChar(m_HelpFile), 15, Data);
  CallHelp := true;
end;

procedure TSDIAppForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ...........
  HtmlHelpA(handle, PChar(m_HelpFile), HH_CLOSE_ALL, 0);
end;

end.

Название: Использование справки HTML Help
Дата публикации: 2004-06-11 (2853 Прочтено)

 
 

 

Page generation 0.033 seconds