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

[Popov]

Ich möchte hier noch mal auf den Tipp von Volker Z. eingehen, der evtl. ganz leicht untergegangen ist, da der Tipp er so unscheinbar ist. Ich meine das mit dem KeyPreview auf True.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True; //oder im Objektinspektor
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then ShowMessage('Hilfe!!!');
end;

F1 wird auch an das Formular durchgegeben, auch wenn eine Komponente den Fokus hat.

[Volker Z.]

Hallo,

ich möchte auch noch mal auf meinen Tipp eingehen: Die Variante funktioniert nur dann, wenn die Dialoge mit

Delphi-Quellcode:

ShowModal

angezeigt werden. Wird ein Dialog mit

Delphi-Quellcode:

Show

aufgerufen funktioniert es ggf. nicht mehr. Dies ist dann der Fall, wenn auf dem MainForm ein Menüeintrag mit

Delphi-Quellcode:

ShortCut := F1

definiert wurde; jetzt hat nämlich das MainForm Vorrang.

Ein möglicher Workaround:

Delphi-Quellcode:

procedure TfrmMain.mnuHelpClick(Sender: TObject);
begin
  if Screen.ActiveForm <> Self then
    SendMessage (Screen.ActiveForm.Handle, WM_KEYDOWN, 0, VK_F1)
  else
    DoSomething
end;

Gruß

[Bummi]

Direkt auf die Helpkeywords des aktiven Controls, bzw. wenn nicht vorhanden des Form reagiert folgendes. Unit in die Uses aufnehmen, den Aufruf:

Mainform.ShowHelp(HelpString);


anpassen an die eigenen Bedürfnisse.

Procedure TMainform.ShowHelp(HelpString);

könnte z.B. ein Shellexecute auf ein HTML-File sein.

Delphi-Quellcode:

unit helplib;

interface

uses
  Windows, Sysutils, Classes, HelpIntfs, Forms, dialogs;

type
  TBumHelpViewer = class(TInterfacedObject, ICustomHelpViewer)
  private
    FViewerID: Integer;
    FHelpManager: IHelpManager;

  public

    function GetViewerName: string;
    // UnderstandsKeyword -> GetHelpStrings -> ShowHelp;

    function UnderstandsKeyword(const HelpString: String): Integer;
    function GetHelpStrings(const HelpString: String): TStringList;
    function CanShowTableOfContents: Boolean;
    procedure ShowHelp(const HelpString: String);
    procedure ShowTableOfContents;
    procedure NotifyID(const ViewerID: Integer);
    procedure SoftShutDown;
    procedure ShutDown;
    property HelpManager: IHelpManager read FHelpManager write FHelpManager;
    property ViewerID: Integer read FViewerID;
  end;

  TBumHelpSelector = class(TInterfacedObject, IHelpSelector)
  public
    function SelectKeyword(Keywords: TStrings): Integer;
    function TableOfContents(Contents: TStrings): Integer;
  end;

const

  HELP_VIEWER_NAME = 'Bummi Help Viewer';

implementation

uses Mainformp;

function TBumHelpViewer.CanShowTableOfContents: Boolean;

begin
  Result := True
end;

function TBumHelpViewer.GetHelpStrings(const HelpString: String): TStringList;
begin
  Result := TStringList.Create;
  Result.Add(HelpString);
end;

function TBumHelpViewer.GetViewerName: string;
begin
  Result := HELP_VIEWER_NAME;
end;

procedure TBumHelpViewer.NotifyID(const ViewerID: Integer);
begin
  FViewerID := ViewerID;
end;

procedure TBumHelpViewer.ShowHelp(const HelpString: String);
begin
  Mainform.ShowHelp(HelpString);
end;

procedure TBumHelpViewer.ShowTableOfContents;
begin

end;

procedure TBumHelpViewer.ShutDown;
begin

end;

procedure TBumHelpViewer.SoftShutDown;
begin

end;

function TBumHelpViewer.UnderstandsKeyword(const HelpString: String): Integer;

begin
  Result := 1;
end;

function TBumHelpSelector.SelectKeyword(Keywords: TStrings): Integer;

begin
  Result := 1
end;

function TBumHelpSelector.TableOfContents(Contents: TStrings): Integer;
begin
  Result := Contents.IndexOf(HELP_VIEWER_NAME);
end;

var
  HelpViewer: TBumHelpViewer;

initialization

HelpViewer := TBumHelpViewer.Create;
inttostr(HelpIntfs.RegisterViewer(HelpViewer, HelpViewer.FHelpManager));
(HelpViewer.FHelpManager as IHelpSystem).AssignHelpSelector(TBumHelpSelector.Create);

end.

[Bernhard Geyer]

Delphi (bzw. die VCL/RTL) hat doch hier ein Interface definiert das man "einfach" implementieren müsste damit man ein eigenes Hilfesystem integrieren könnte.


http://helpware.net/delphi/ wäre evtl ein Einstieg zu diesem Thema (hat CHM für alte Delphi-Versionen über dieses Interface bereitgestellt).