列表8.6.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 33 行

【列表8.6】GetHelpFileName和LoadHelpFile过程。

{
  GetHelpFileName is a replacement for THelpManager. GetHelpFile, because
  Application.GetCurrentHelpFile is broken.
}
function GetHelpFileName: String;
var
  ActiveForm: TCustomForm;
begin
   ActiveForm := Screen.ActiveCustomForm;
   if Assigned(ActiveForm) and (ActiveForm. HelpFile <> '') then
      Result := ActiveForm. HelpFile
   else
      Result := Application.HelpFile;
end;
{ LoadHelpFile loads the current help file into a TStringList }
procedure TSimpleHelpViewer. LoadHelpFile;
var
   HelpFile: String;
begin
   if FlstHelpFile = nil then
      FlstHelpFile := TStringList.Create;
   { Would use FHelpManager. GetHelpFile, but that function is broken. }
   HelpFile := GetHelpFileName;
   { Check prevents reloading the same help file }
   if HelpFile <> FLastHelpFileName then
   begin
      FlstHelpFile. LoadFromFile (HelpFile);
      FLastHelpFileName := HelpFile;
   end;
end;