TApplicationEvent
OnHelp-Ereignis eine Routine zuweisen.
Dort CallHelp auf false setzen.
Entsprechend der Werte aus Command und/oder Data in der Routine die benötigte
HTML-Seite auswählen und zur Anzeige bringen.
Grob sowas in der (ungetesteten) Art:
Delphi-Quellcode:
function TForm1.ApplicationEvents1Help(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
var
sHTMLFile :
String;
begin
CallHelp := false;
// Irgendeine Auswahl der erforderlichen Datei.
// Z. B. über den, der aufrufenden Komponente zugewiesenen, HelpContext.
sHTMLFile := Format('
.\help\HelpContext_%.3d.html',[Data]);
// Anzeige per ShellExecute
// oder in 'nem anderen Werkzeug, das mit HTML umgehen kann.
// TWebBrowser ...
if FileExists(sHTMLFile)
then
ShellExecute(0,
Nil,'
open',PChar(sHTMLFile),
Nil,SW_Normal);
if FileExists(sHTMLFile)
then
WebBrowser.Navigate(sHTLMFile);
end;