我的意思是一款通用产品，某些操作不完全符合Windows的既有习惯，这个可以认为是存在BUG吗？
再有：
在VB中只要设置了App.HelpFile="a.chm"，则按F1键，就自动弹出联机帮助，但在Delphi中设置Application.HelpFile后却没有类似效果，要自己写键盘消息处理程序，不知用Delphi或BCB的朋友有没有自己写这段消息处量程序？

[ 本帖最后由 duanlian 于 2007-12-19 08:58 编辑 ]

我的连帮助都没有，是不是也算BUG？？

F1? 魔兽中好像是选第一个英雄啊 , 看来这个BUG挺普遍的.

引用:

原帖由 duanlian 于 2007-12-19 08:42 发表
我的意思是一款通用产品，某些操作不完全符合Windows的既有习惯，这个可以认为是存在BUG吗？
再有：
在VB中只要设置了App.HelpFile="a.chm"，则按F1键，就自动弹出联机帮助，但在Delphi中设置Application.HelpFile ...

复制内容到剪贴板

代码:

type
  TfrmMain = class(TForm)
...
    function DoAppHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
...
  end;
...
  Application.OnHelp := DoAppHelp;
...

function TfrmMain.DoAppHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  if Command = HELP_CONTEXT then
  begin
  // 这个是上下文相关的帮助，可以打开指定的页面，具体帮助怎么制作，我这里就不说了。。。
    CallHelp := False;
    if (Application.HelpFile <> '') and FileExists(Application.HelpFile) then
    begin
      HtmlHelp(GetDesktopWindow, PAnsiChar(Application.HelpFile), HH_HELP_CONTEXT, Data);
      HtmlHelp(GetDesktopWindow, PAnsiChar(Application.HelpFile), HH_SYNC, Data);
      Result := True;
      Exit;
    end;
  end;
  Result := False;
end;

如果只要简单的打开chm文件，如下代码即可

复制内容到剪贴板

代码:

HtmlHelp(GetDesktopWindow, PAnsiChar(Application.HelpFile), $0000, 0);
// 也可用app的handle
HtmlHelp(Application.Handle, PAnsiChar(Application.HelpFile), $0000, 0);

HtmlHelp这个API在Delphi 7中没有封装，Delphi 2006中已经封装了。。。

引用:

原帖由 Fly.Hang 于 2007-12-19 16:22 发表
F1? 魔兽中好像是选第一个英雄啊 , 看来这个BUG挺普遍的.

红警里是书签。。。

引用:

原帖由 CodeCoolie 于 2007-12-19 16:29 发表


type
  TfrmMain = class(TForm)
...
    function DoAppHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
...
  end;
...
  Application.OnHelp := DoAppHelp;
...

function T ...

就你解了我的困惑，谢谢啊！

引用:

原帖由 duanlian 于 2007-12-19 17:28 发表


就你解了我的困惑，谢谢啊！   

那还不赶快赏分

引用:

原帖由 CodeCoolie 于 2007-12-19 17:35 发表


那还不赶快赏分

今天才知道，原来论坛还能给分啊！