Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionunit ModeleMainForm; interface uses
function TApplication.InvokeHelp(Command: Word; Data: Longint): Boolean; var CallHelp: Boolean; HelpHandle: HWND; ActiveForm: TCustomForm; begin Result := False; CallHelp := True; ActiveForm := Screen.ActiveCustomForm; if Assigned(ActiveForm) and Assigned(ActiveForm.FOnHelp) then Result := ActiveForm.FOnHelp(Command, Data, CallHelp) else if Assigned(FOnHelp) then Result := FOnHelp(Command, Data, CallHelp); if CallHelp then if Assigned(ActiveForm) and ActiveForm.HandleAllocated and (ActiveForm.FHelpFile <> '') then begin HelpHandle := ActiveForm.Handle; Result := WinHelp(HelpHandle, PChar(ActiveForm.FHelpFile), Command, Data); end else if FHelpFile <> '' then begin HelpHandle := Handle; if FMainForm <> nil then HelpHandle := FMainForm.Handle; Result := WinHelp(HelpHandle, PChar(FHelpFile), Command, Data); end else if not FHandleCreated then PostMessage(FHandle, CM_INVOKEHELP, Command, Data); end; function TApplication.HelpContext(Context: THelpContext): Boolean; begin Result := InvokeHelp(HELP_CONTEXT, Context); end;