首先声明:
Function HtmlHelp(hwd : integer; pszFile : String;
uCommand :Integer;dwData :LongInt):integer;
stdcall;external 'HHCtrl.ocx' name 'HtmlHelpA';
然后在每个控件的helpcontext属性中设置与chm对应的标号
最后在onhelp事件中:
function TIniFrm.FormHelp(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
if HtmlHelp(Self.handle,'Itkq.chm',$000F,Data) = 0 then
ShowErrMsg('HelpError');
end;
OK!
Function HtmlHelp(hwd : integer; pszFile : String;
uCommand :Integer;dwData :LongInt):integer;
stdcall;external 'HHCtrl.ocx' name 'HtmlHelpA';
然后在每个控件的helpcontext属性中设置与chm对应的标号
最后在onhelp事件中:
function TIniFrm.FormHelp(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
if HtmlHelp(Self.handle,'Itkq.chm',$000F,Data) = 0 then
ShowErrMsg('HelpError');
end;
OK!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货