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.