F1 umleiten auf Webseiten = externe Hilfe

[süden]

Hallo,

ich habe folgenen Programmaufbau:
- MainForm mit Menü und zentralem Panel
- auf das Panel werden über das Menü normale Forms geladen (Create/Show/Hide)
- zusätzlich einige modale Forms

Jedes Form hat einen Hilfe-Button mit dem ich eine Html-Seite aufrufe.
Ich möchte, dass F1 ebenfalls die spezifische Html-Seite aufruft.

Trotz (oder weil) intensivem Studiums und Suchen im Netz und den Foren will es mir nicht gelingen.
Ich gebe zu ein totaler API Neuling zu sein, und alle Hooks, ShortCuts, onHelps und HotKeys etc. haben mir nicht weiter geholfen.

Wie kann ich F1 abfangen?
Und die Datei für das aktuelle Form/modale Form aufrufen?

Gruß
Süden
D2007 Pro

[Volker Z.]

Hallo,

Zitat:

Wie kann ich F1 abfangen?

im OnKeyUp-Event des Forms.

Delphi-Quellcode:

procedure TForm4.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_F1 then
    Button1.Click
end;

Nachtrag: Im Form die Eigenschaft KeyPreview auf True setzen

Gruß

[süden]

Kommt nicht an bzw. wird nicht ausgelöst.
Ich glaube in meiner Konstellation wird F1 direkt an den Parent = MainForm durchgegeben.

Gruß
Süden

[Volker Z.]

Hallo,

auch die Eigenschaft KeyPreview auf True in den entsprechenden Forms gesetzt?

Gruß

[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;

[süden]

Das sieht gut aus, ich werde es mal probieren.

Danke
Süden