ShowMessage 2. Parameter

[Uwe Raabe]

Wieso unnötig? ShowMessage mit zwei Parametern ruft ja den neuen TaskDialog auf, wenn nicht irgendetwas dagegen spricht. Am Ende landet man hier und da wird die Prüfung gemacht:

Delphi-Quellcode:

function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
  const HelpFileName: string; TaskDlgFlags: TTaskDialogFlags): Integer;
begin
  if TOSVersion.Check(6) and UseLatestCommonDialogs and
     IsNewCommonCtrl and not ((shDialogs in TStyleManager.SystemHooks) and not StyleServices(Screen.ActiveCustomForm).IsSystemStyle) then
    Result := DoTaskMessageDlgPosHelp('', Msg, DlgType, Buttons,
      HelpCtx, X, Y, HelpFileName, TaskDlgFlags)
  else
    Result := DoMessageDlgPosHelp(CreateMessageDialog(Msg, DlgType, Buttons),
      HelpCtx, X, Y, HelpFileName);
end;

Die beiden Dialoge im ScreenShot entstehen aus demselben Code, jeweils durch ändern von UseLatestCommonDialogs.

[Willie1]

Hallo Uwe,

ich habe Themes und CommCtrl eingebunden. Aber mein Delphi 11.3 kennt IsNewCommonCtrl nicht. Die Hilfe auch nicht.

[fred42]

Zitat von Willie1:

Hallo Uwe,

ich habe Themes und CommCtrl eingebunden. Aber mein Delphi 11.3 kennt IsNewCommonCtrl nicht. Die Hilfe auch nicht.

siehe hier

vcl.Dialogs;

[Uwe Raabe]

Die Abfrage mal auseinandergenommen:

Delphi-Quellcode:

  if TOSVersion.Check(6) and 
     UseLatestCommonDialogs and
     IsNewCommonCtrl and 
     not ((shDialogs in TStyleManager.SystemHooks) and not StyleServices(Screen.ActiveCustomForm).IsSystemStyle) then

TOSVersion.Check(6) bedeutet Windows Vista oder höher

UseLatestCommonDialogs ist zwar per default = True, könnte aber irgendwo in deinem Code geändert worden sein

Für IsNewCommonCtrl muss in den Projekt-Optionen unter Manifest Laufzeit-Themes aktiviert sein.

der not Block bedeutet: Es muss shDialogs aus TStyleManager.SystemHooks entfernt werden oder es muss der Windows Style aktiv sein. Solltest du also mit VCL-Styles arbeiten, muss das shDialogs da raus, denn dann werden die Dialoge von Windows verwendet. Sollen die Dialog auch im VCL-Style dargestellt werden, dann gehen halt die neuen Task-Dialoge nicht.

[DaCoda]

Ich benutze die "neuen" Dialoge mit einer kleinen Hilfsunit und die funktionieren eigentlich auch mit Styles.
Die Unit habe ich mal angehängt. Und in Kombination mit dem Vorschlag von Uwe Raabe kannst du dir schon was anständiges basteln

[Willie1]

Zitat von Uwe Raabe:

Die Abfrage mal auseinandergenommen:

Delphi-Quellcode:

  if TOSVersion.Check(6) and 
     UseLatestCommonDialogs and
     IsNewCommonCtrl and 
     not ((shDialogs in TStyleManager.SystemHooks) and not StyleServices(Screen.ActiveCustomForm).IsSystemStyle) then

TOSVersion.Check(6) bedeutet Windows Vista oder höher

UseLatestCommonDialogs ist zwar per default = True, könnte aber irgendwo in deinem Code geändert worden sein

ist Ok

Zitat:

Für IsNewCommonCtrl muss in den Projekt-Optionen unter Manifest Laufzeit-Themes aktiviert sein.

Ist aktiviert!

Zitat:

der not Block bedeutet: Es muss shDialogs aus TStyleManager.SystemHooks entfernt werden oder es muss der Windows Style aktiv sein. Solltest du also mit VCL-Styles arbeiten, muss das shDialogs da raus, denn dann werden die Dialoge von Windows verwendet. Sollen die Dialog auch im VCL-Style dargestellt werden, dann gehen halt die neuen Task-Dialoge nicht.

Ich verstehe deine Erklärungen- Vcl.Dialogs ist eingebunden. Außerhalb des Screenshots ist außer then alles in Ordnung.

[jaenicke]

Du brauchst diese Funktion nicht kopieren, denn die wird intern bereits verwendet, wenn du ShowMessage aufrufst. Du könntest darin aber einen Haltepunkt setzen und prüfen, was dort passiert, wenn du ShowMessage verwendest. Das sieht dann z.B. so aus:

Screenshot 2025-01-12 192600.png

Wie du siehst, komme ich in den ersten Zweig rein.

Aber was passiert bei dir denn, wenn du diese Zeilen ausprobierst?

Delphi-Quellcode:

  ShowMessage('Test', [tfAllowDialogCancellation]);
  ShowMessage('Test', []);

Macht das einen Unterschied?

[Willie1]

Hallo,

jetzt weiß ich woran es liegt. <1>lässt es such mit esc beenden <2> nur mit Ok. Aber nur, wenn man kein Farbschema vom Emacadero ausgewählt hat. Dann ist das Hinweisfenster klein und lässt sich immer mit esc beenden. Ich habe zum ersten Mal ein Farbschema benutzt. Beim Farbschema wird wohl der VistaTaskDialog nicht benutzt!? Danke für eure Geduld.

Gruß Willie.

[jaenicke]

Zitat von Willie1:

Aber nur, wenn man kein Farbschema vom Emacadero ausgewählt hat. Dann ist das Hinweisfenster klein und lässt sich immer mit esc beenden. Ich habe zum ersten Mal ein Farbschema benutzt. Beim Farbschema wird wohl der VistaTaskDialog nicht benutzt!?

Genau das hat Uwe ja anhand des Quelltextes erklärt:

Zitat von Uwe Raabe:

Solltest du also mit VCL-Styles arbeiten, muss das shDialogs da raus, denn dann werden die Dialoge von Windows verwendet. Sollen die Dialog auch im VCL-Style dargestellt werden, dann gehen halt die neuen Task-Dialoge nicht.

Du kannst das also einstellen.

[Frickler]

Zitat von Uwe Raabe:

Sollen die Dialog auch im VCL-Style dargestellt werden, dann gehen halt die neuen Task-Dialoge nicht.

Dafür gibts doch die VCL Styles Utils: https://github.com/RRUZ/vcl-styles-utils. Damit kann man auch TaskDialoge "stylen".