F1 umleiten auf Webseiten = externe Hilfe

[Gerd01]

Du musst Application onHelp abfangen. In die jeweiligen Formen schreibst Du in den Helpcontext eine Zahl. Du legst eine Help.Ini an in der die HelpContext-Nummer auf die URL der Online-Seite zeigt. Dann die Seite aufrufen.

BEISPIEL-Fragment:
function TfmMain.ApplicationEvents1Help(Command: Word; {$IFnDEF NEW_XE2} Data:Integer; {$ELSE} Data:NativeInt; {$ENDIF}
var CallHelp: Boolean): Boolean;
Var
sUrl : String;
hIni : TIniFile;
begin
if ( Data = 0 ) and Assigned ( Screen.ActiveControl ) then
Data := Screen.ActiveControl.HelpContext;
If FileExists( ExtractFilePath( Paramstr(0) ) + 'help\help6.ini' ) then begin
hIni := TIniFile.Create( ExtractFilePath( Paramstr(0) ) + 'help\help6.ini' );
Try
sUrl := hIni.ReadString( 'HelpContext', IntToStr ( Data ), _RSOnlineHelpLink );
Finally
hIni.Free;
End;
end
else sUrl := _RSStandardOnlineHelpLink;

ShellExecute(0, Nil, PChar( sUrl ), Nil, Nil, SW_NORMAL);
CallHelp := False;
end;