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 г. ***************************************************** } unituHtmlHelp; 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
.