德尔福XE2 : Jumping to an anchor in CHM?-6ren

德尔福XE2 : Jumping to an anchor in CHM?

转载作者：行者123 更新时间：2023-12-03 15:01:56

31

4

在 Delphi XE2 程序中，如何跳转到 CHM 帮助文件主题内的 anchor ？ anchor 具有以下格式(从显示 CHM 文件的 HTML HelpViewer 中的主题页面源中提取):

<a name="my_anchor_id"></a>

我尝试了以下方法:

Application.HelpJump('MyTopicName.htm#my_anchor_id');

不幸的是，这不起作用:它确实跳转到这个主题，但只是跳到主题的顶部，而不是 anchor ，这是页面向下滚动的几个部分。

最佳答案

跳转到 CHM 中的 anchor
使用 Delphi2010 - DelphiXE2 - Windows XP 进行测试

如何使用 Delphi 跳转到 chm 文件(编译的 HTML 帮助)中的 anchor 。

是的，可以使用 HtmlHelp() 命令跳转到 anchor 。
<a name="my_anchor"></a>

 HtmlHelp(0,hpPath+'::/Overview.htm#UsingtheMenus>main',HH_DISPLAY_TOPIC,DWORD(nil));

链接: Overview.htm

注意:不需要此链接可通过 delphi 程序跳转到
anchor 。(仅用于测试)。

概述.htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
[...]
<BODY bgColor=#f7f8e2>
<H1>Overview</H1>
<A HREF="Overview.htm#UsingtheMenus">Using the Menus</A>
[...]

anchor : Overview.htm

[...]
<A NAME="UsingtheMenus" </A>
<P><STRONG>Using the Menus and Toolbars</STRONG>
[...]

如果有人想尝试的话。

以下是更多信息和测试程序:

enter image description here

运行 Project1.exe 并选择不带:

enter image description here

Unit1.pas/命令

procedure TForm1.Button2Click(Sender: TObject);
begin
    HtmlHelp(0,hpPath+'::/Overview.htm#UsingtheMenus>main',HH_DISPLAY_TOPIC,DWORD(nil));
end;

点击按钮Overview.htm#UsingtheMenus

结果:

帮助文件打开，overview.htm出现。它跳到了 anchor 。

enter image description here

<小时/>

下载源Project1.exe D2010和XE2。
下载源sample.chm HtmlHelp项目。

Download

<小时/>

现在让我们测试其他 2 个按钮

procedure TForm1.HelpKeywordClick(Sender: TObject);
begin
  Application.HelpKeyword('UsingtheMenus');
end;

procedure TForm1.HelpContextClick(Sender: TObject);
begin
  Application.HelpContext(IDH_UsingtheMenus);
end;

点击按钮HelpKeyword('UsingtheMenus')

结果:

帮助文件打开，FirstTopic.htm出现。文字UsingtheMenus被插入到搜索字段中。 禁止跳转到 anchor !

<小时/>

点击按钮HelpContext(IDH_UsingtheMenus)')

结果相同，只是搜索框为空。

<小时/>

最后 2 次点击显示在此处:
文件 HelpFile2\sample.chm 中没有可用的 secret ID 或关键字。

<小时/>

现在我们更改帮助文件，除了 Overview.htm#UsingtheMenus另外两种方法都成功。

关闭应用程序“Project.exe”
再次运行“Project.exe”。
确保 with已选择。

现在我们在文件夹 HelpFile\
中使用“sample.chm”使用以下设置。

样本.h

#define IDH_Creating_Projects_and_Topics 1005
#define IDH_Overview 1003
#define IDH_UsingtheMenus 1009

样本.ali

IDH_Overview=Overview.htm
IDH_welcom=FirstTopic.htm
IDH_UsingtheMenus=Overview.htm#UsingtheMenus

样本.hcc

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
[...]
        <LI> <OBJECT type="text/sitemap">
            <param name="Name" value="Using the Menus">
            <param name="Local" value="Overview.htm#UsingtheMenus">
        </OBJECT>   
[...]
</HTML>

样本.hhk

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
[...]
    <LI> <OBJECT type="text/sitemap">
        <param name="Name" value="Using the Menus">
        <param name="Name" value="Using the Menus">
        <param name="Local" value="Overview.htm#UsingtheMenus">
        </OBJECT>   
[...]
</HTML>

如果我们编译“sample.chm”，我们会收到一条错误消息。

HHC3015: Warning: An alias has been created to "Overview.htm#UsingtheMenus" but the file does not exist.

这是正常的，因为文件“Overview.htm#UsingtheMenus”并不真正存在!

我们来试试

不要忘记，“帮助窗口”在尝试以下每一项操作后，要再次关闭。否则你无法跟踪不同的状态。

点击按钮HelpKeyword('UsingtheMenus')

enter image description here

结果:
帮助文件打开，FirstTopic.htm出现。文字UsingtheMenus被插入到搜索字段中。文字UsingtheMenus在列表框中选择
如果您点击Show
它跳到了 anchor 。

<小时/>

点击按钮HelpContext(IDH_UsingtheMenus)')

结果:

帮助文件打开，overview.htm出现。它跳到了 anchor 。

<小时/>

点击按钮Overview.htm#UsingtheMenus

结果:

与上面的结果相同。
帮助文件打开，overview.htm出现。它跳到了 anchor 。

<小时/>

现在我们可以使用三种方法之一来跳转到所需的标记。

<小时/>

如果有人对其他按钮的功能感兴趣，请继续阅读并获取更多信息。

明天继续。

关于德尔福XE2 : Jumping to an anchor in CHM?，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/12281543/

31

4

0

文章推荐： delphi - 使用shellexecute时 "printto"的参数是什么？

文章推荐： delphi - 将图像加载到 TImageList 并读取它们？

文章推荐： delphi - 将一个单元添加到项目中所有单元的使用子句中？

delphi - 适用于德尔福 2006/德尔福 2007/德尔福 2009 的 FitNesse
是否有适用于 Delphi 2006/2007/2009 的 FitNesse 版本？如果可以的话我在哪里可以找到它？还有其他类似 FitNesse 的程序可以在 Delphi 2006 上运行吗
德尔福。如何在调用另一个模态表单后立即关闭模态表单
在 MDI 应用程序中有一个打开的模态表单 A。表单 B 从表单 A 中显示为模态。如何在调用模态表单 B 后关闭模态表单 A？最佳答案模态意味着终生嵌套。当一个模态表单打开另一个模态表单时，第
德尔福。印地和西里尔字母
我一直在写一些通过 URL 下载指定网页源代码的函数: function GetWebPage(const url: string): tStringList; var idHttp: TidHt
德尔福+网络摄像头
我正在寻找一种在 Delphi 中使用我的网络摄像头的方法，主要用于抓取图片，由于某些原因我无法使用 TWAIN 驱动程序。最佳答案尝试这些资源 DSPack DSPack is a set of
德尔福 - TreeView
我正在寻找用于 delphi 的数据感知 TreeView 什么是最好用的？最佳答案 Virtual TreeView 是最快的，功能最多的，最好的，而且是免费的!(对于数据感知，有免费的 desc
德尔福。克隆一个对象
这个问题已经有答案了: How to copy the properties of one class instance to another instance of the same class?
德尔福。反转光标颜色
我想为我的应用程序使用大型倒十字光标。但我的代码使光标背景反转。光标仍为白色。 var IconInfo: TIconInfo; AndMask, Bmp: TBitmap; w, h:
德尔福:缺少Dcu
[DCC Fatal Error] Unit1.pas(7): F1026 File not found: 'MyBitBtn.dcu' Unit1 是用于测试目的的 VCL 表单。我已经安装了一个
德尔福:毛玻璃片
就目前情况而言，这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持，但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放，visit
德尔福。删除PageControl的TabSheet的边框
是否可以删除 TabSheet 的边框(~4px)？我使用 PageControl 作为开关面板，而不是框架、窗口等。我希望一切都是直的。最佳答案 unit Unit1; interface use
德尔福 HashMap ？
我有java代码从文本文件填充 HashMap 。 HashMap data = new HashMap(); 我用它来制作键值对。值是一个字符串数组。我必须迭代键值对的每个可能的组合(因此还必须迭代
delphi - 如何更改mp3比特率？ (德尔福)
如何更改mp3文件的恒定比特率（CBR）？（例如64kbps-128kbps-192kbps）最佳答案您需要重新编码mp3。由于我不知道用Delphi编写的mp3编解码器不错，因此您需要在c库（
delphi - 德尔福:表格上的8个神秘成分是什么？
当我迭代窗体上的控件时，我会看到在设计时或运行时放置在其中的控件。它们都是TEdit，Tmemo，TComboBox等类型的... 但是，总有八种我不认识。我可以跳过它们，因为它们不是我感兴趣的类型，
德尔福 child 类
我认为这是一个愚蠢的问题..但是..当在Delphi中声明另一个类的子类时， children 是否直接获得了 parent 的方法？解释: 名为“P”的类是名为“C”的类的父类，“P”类有一个名为
delphi - Facebook 德尔福
正在尝试将数据发布到 https://www.facebook.com/login.php使用突触 delphi 库但没有任何结果。帖子数据来自 mozila headers viewer。答案？
PHP + 德尔福 + Firebird
我在使用 PHP + Delphi 9 + Firebird 检索大量数据时遇到问题。应用程序屏幕截图我在 Delphi 应用程序中有一个名为 "checks"的按钮，当我单击该按钮时，它会根据函
德尔福 2010 OXMLDOM
我正在将我的 Delphi 7 应用程序迁移到 Delphi 2010。我们使用了 Open XML(来自 http://www.philo.de/)。在 Delphi 2010 中，它似乎已经内置
德尔福，菜鸟问题 #2
在以下代码中: type TDoubleDWORD = record L, H: Longint; end; function BitSelection(const Block:
delphi - 我怎样才能拥有这样的工具栏？ (德尔福)
我喜欢这个工具栏。我在哪里可以找到它？谢谢最佳答案您可以实现与使用标准 Delphi 组件类似的功能(至少非常类似): 将 TControlBar 添加到表单将其 DrawingStyle 设
德尔福 Firebird 汽车公司
如何使用 Zeos 在 firebird 中创建 autoinc 字段。 -布拉德最佳答案 Firebird FAQ #29中有解释。请参阅该页面的底部。关于德尔福 Firebird 汽车公司，我

首页

博学

6Ren·AI

商城

德尔福XE2 : Jumping to an anchor in CHM?