Probleme mit HLP-Datei unter Delphi 7

[dschnyder]

Lösung auf die Schnelle:

Delphi-Quellcode:

 
 if (command <> HELP_COMMAND) then begin
   result := WinHelp(application.Handle,PChar(Application.Helpfile),command,data);
   CallHelp := false;
 end;

Gruss Daniel

[uwi1961]

Hallo Daniel,

ein Aufruf von Application.HelpJump('') über mein Hauptmenü führt auch bei dieser Lösung dazu,
das die Hilfe gar nicht aufgerufen wird.

Gruß Uwe.

[dschnyder]

Hallo Uwe,

jetzt wird es schwierig:

Bei meiner Anwendung funktioniert es.

Konkret verwende ich untenstehenden Fix, den ich aus onHelp in jedem Formular aufrufe.

Delphi-Quellcode:

// Delphi HelpFix
// Damit HelpContext auch bei Delphi 7 funktioniert
// Diese Funktion aus onHelp des entsprechenden Formulars aufrufen.
function HelpFix(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  if (command <> HELP_COMMAND) then begin
    result := WinHelp(application.Handle,PChar(Application.Helpfile),command,data);
    CallHelp := false;
  end;
end;

Ich werde Euch informieren, falls ich auch "Nebenwirkungen" feststellen sollte.

Gruss Daniel

[dschnyder]

Fehler gefunden:

Bei meinem Fix war der Funktions - Rückgabewert nicht definiert.

Mit untenstehendem Code sollte es gehen.

Delphi-Quellcode:

// Delphi HelpFix
// Damit HelpContext auch bei Delphi 7 funktioniert
// Diese Funktion aus onHelp des entsprechenden Formulars aufrufen.
function HelpFix(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  if (command <> HELP_COMMAND) then begin
    result := WinHelp(application.Handle,PChar(Application.Helpfile),command,data);
    CallHelp := false;
  end else result := false;
end;

Gruss Daniel

[uwi1961]

Hallo Daniel,

so funktionierts bestens

dankende Grüße
Uwe.