ShowMessage 2. Parameter

[Willie1]

Hallo Leute,

eine Kleinigkeit zum neuen Jahr. Ich wusste nicht, dass ShowMessage einen zweiten Parameter hat. Ich lese in der Hilfe, verstehe sie aber nicht! tfAllowDialogCancellation kann ich mir noch vorstellen. Aber das Fenster lässt sich immer mit <Esc> schließen. Was soll der Parameter?

Gruß Willie.

[Uwe Raabe]

Zitat von Willie1:

Aber das Fenster lässt sich immer mit <Esc> schließen.

Nicht wenn der neue Task-Dialog verwendet wird. Hier mal der optische Unterschied:

[Willie1]

Zitat von Uwe Raabe:

Nicht wenn der neue Task-Dialog verwendet wird. Hier mal der optische Unterschied:

Ok, stimmt. Dann ist bei ShowMessage der zweite Parameter unnötig. ShowMessage ist eben die schnellste Möglichkeit ein Hinweisfenster zu bauen. Wi.

[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:



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?