Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   MessageDlg: Auf Hilfe-Schalter reagieren (https://www.delphipraxis.net/211834-messagedlg-auf-hilfe-schalter-reagieren.html)

BlueStarHH 9. Nov 2022 09:25

MessageDlg: Auf Hilfe-Schalter reagieren
 
Hallo,

ich rufe so einen MessageDlg auf:

Delphi-Quellcode:
MessageDlg('Test', mtConfirmation, [mbYes, mbNo, mbHelp], 999)
Wenn dort der Hilfe-Schalter gedrückt wird, öffnet sich automatisch meine Hilfe-Datei. In diesem Fall (ID 999) möchte ich aber eine Ausnahme machen und selbst auf den Schalterklick reagieren und eine URL öffen. Wo kann ich den Klick auf den Hilfeschalter abfangen?

Weder ApplicationEvents.OnHelp noch Form.OnHelp wird dann aufgerufen. Es öffnet sich sofort meine Hilfedatei.

himitsu 9. Nov 2022 10:42

AW: MessageDlg: Auf Hilfe-Schalter reagieren
 
Im Normalfall wird dieser Dialog von der Windows-TaskDialogAPI verarbeitet/angezeigt
und dort hat Delphi/Emba wohl die Behandlung dieses Ereignisses wohl nicht richtig implementiert?
TCustomTaskDialog.DoOnHelp und TCommonDialog.MessageHook sehen aber eigentlich OK aus.

Die VCL-Version, bzw. der TButton da drin, leitet es an ApplicationEvents.OnHelp weiter (dort anschließend ein
Delphi-Quellcode:
Abort;
, damit die Standardbehandlung nicht reagiert).
Delphi-Quellcode:
UseLatestCommonDialogs := False;
MessageDlg('Test', mtInformation, [mbYes, mbNo, mbHelp], 999);
Und nicht vergessen UseLatestCommonDialogs wieder zurückzusetzen.




Alternativ direkt den VCL-Dialog erstellen
-> CreateMessageDialog
und dann z.B.
Delphi-Quellcode:
(Dialog.FindComponent('Help') as TButton).OnClick := ...




Dieser Bug dürfte dann auch schon seit Jahrzehten existieren, denn in XE geht es auch schon nicht.
Da wir nur mit HelpKeywords und nicht mit HelpIndex arbeiten, war uns diesbezüglich nie was aufgefallen, weil wir die Help-Buttons in Dialogen selbst behandeln (da die VCL nur den Index dort bietet)


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz