Форум: "Начинающим";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Внизchm Найти похожие ветки
← →
shtam (2007-08-09 13:36) [0]помогите ктознает как открыть файл справки(CHM) в моей форме а не как самостаятельную форму
← →
Сергей М. © (2007-08-09 16:01) [1]Гуглить-то умеем ?
http://www.google.ru/search?q=Delphi+%D1%81%D0%BF%D1%80%D0%B0%D0%B2%D0%BA%D0%B0+CHM&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:official&client=firefox-a
← →
Lacmus © (2007-08-09 18:34) [2]>shtam (09.08.07 13:36)
type
HH_WinType = record
cbStruct: Integer;
fUniCodeStrings: bool;
pszType: PChar;
fsValidMembers: Longint;
fsWinProperties: Longint;
pszCaption: PChar;
dwStyles: Longint;
dwExStyles: Longint;
rcWindowPos: TRect;
nShowState: Integer;
hwndHelp: THandle;
hwndCaller: THandle;
paInfoTypes: ^HH_InfoType;
hwndToolbar: THandle;
hwndNavigation: THandle;
hwndHTML: THandle;
iNavWidth: Integer;
rcHTML: TRect;
pszToc: PChar;
pszIndex: PChar;
pszFile: PChar;
pszHome: PChar;
fsToolbarFlags: Longint;
fNotExpanded: bool;
curNavType: Integer;
tabPos: Integer;
idNotify: Integer;
end;
PHH_WinType = ^HH_WinType;
procedure TForm27.Button1Click(Sender: TObject);
var
pWinType: PHH_WINTYPE;
begin
pWinType := nil;
if HtmlHelp(Handle, "test.chm>main", HH_GET_WIN_TYPE, LongInt(@pWinType)) = 0 then begin
pWinType.dwStyles := pWinType.dwStyles or WS_CHILD;
if HtmlHelp(Handle, "test.chm", HH_SET_WIN_TYPE, LongInt(pWinType)) = 0 then
ShowMessage("HH_SET_WIN_TYPE - OK")
end else
ShowMessage("HH_GET_WIN_TYPE - Fail");
HtmlHelp(Handle, "test.chm", HH_DISPLAY_TOPIC, 0);
end;
← →
alshtam (2007-08-14 07:41) [3]спасибо огромное все получилось
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c