Eine
Unit Winhelp kennt mein Delphi nicht...
Schreib' einfach einen Handler für Application.OnHelp in deiner Hauptformularklasse:
Delphi-Quellcode:
type
TForm1 =
class(TForm)
//...
private
function ApplicationHelp(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
//...
end;
//...
function TForm1.ApplicationHelp(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
CallHelp := false;
Result :=
not WinHelp(
Handle, PChar(Application.HelpFile), Command, Data);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//...
Application.OnHelp := ApplicationHelp;
//...
end;