Probleme mit HLP-Datei unter Delphi 7

[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