ＨＴＭＬヘルプを表示するには？ (ID:17664)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ここを参考に http://www.asahi-net.or.jp/~HA3T-NKMR/tips011.htm uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); var dlg: TForm; res: Word; HBtn: TButton; begin dlg := CreateMessageDialog('Test', mtInformation, [mbYes, mbNo, mbHelp]); HBtn := TButton(dlg.FindComponent('Help')); HBtn.OnClick := ShowHtmlHelp; res := dlg.ShowModal; dlg.Free; end; procedure TForm1.ShowHtmlHelp(Sender: TObject); begin ShellEXecute (Handle, nil, 'help.chm', nil, nil, SW_SHOW); end;