Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
{ **** 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
.