掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントにして、HTMLヘルプを表示するには？ (ID:17725)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 該当するヘルプを表示 ShellExecuteでは無理だったような気がします。 私はTHtmlHelpコンポーネントを使っています。 http://www.stbbs.net/~junichi/adelieworks/hhwd/download.html#thtmlhelp これはWinHelpとHtmlHelpを置き換える便利なコンポーネントです。 これを使った場合のコードは以下のようになります。 procedure TForm1.Button1Click(Sender: TObject); var dlg: TForm; res: Word; begin dlg := CreateMessageDialog('Test', mtInformation, [mbYes, mbNo, mbHelp]); dlg.HelpContext := 2002; res := dlg.ShowModal; dlg.Free; Application.HelpCommand(HELP_QUIT, 0); //要改造 end; > または、ダイアログとヘルプ画面を閉じる THTMLHelpでは改造しないとヘルプ画面を消す事ができません。 awhhelp.passで constにHH_CLOSE_ALL = $0012; OnApplicationHelpの中に以下を追加しましょう。 HELP_QUIT: begin hRet := HtmlHelp(hOwner,PChar(helppath),HH_CLOSE_ALL,Data); end; 以上で Application.HelpCommand(HELP_QUIT, 0);でヘルプが消えます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.