Windows 11 Style Dark-Mode und Fensterschatten

[BigAl]

Hallo zusammen,

ist ja cool, dass es dir Styles für Windows 11 gibt. Interessant finde ich speziell das dunkle Thema. Allerdings wird die Applikation schnell sehr unübersichtlich, da den Fenstern die typischen Windows-Schatten fehlen. Ich arbeite unter Windows 11 und das helle Thema ist eigentlich unnötig, da dies eigentlich dem Standard-Thema (VCL ohne Style) entspricht.

Nun zwei Fragen:

1. Ist es möglich den VCL-Formularen einen Schatten zu entlocken?

2. Das wäre noch besser: Kann ein natives Windows 11 Dark-Fenster erzeugt werden? Der Standard-Windows Style schert sich ja nicht wirklich um den aktuell eingestellten Anzeigemodus. Der ist immer hell. Oder habe ich was verpasst?

Alex

[WiPhi]

Zitat von BigAl:

1. Ist es möglich den VCL-Formularen einen Schatten zu entlocken?

Vielleicht so?

Delphi-Quellcode:

type
  TMyForm = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

[BigAl]

Zitat von WiPhi:

Zitat von BigAl:

1. Ist es möglich den VCL-Formularen einen Schatten zu entlocken?

Vielleicht so?

Delphi-Quellcode:

type
  TMyForm = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

Leider wirft das nur einen Schatten außerhalb der Applikation. Das Problem ist, dass ein Dialog innerhalb der Applikation einfach nut flach über das Hauptfenster gezeichnet wird. Teilweise muss man echt suchen wo das Hauptfenster aufhört und der Dialog anfängt. Die Windows 11 Styles wurden aber aktualisiert (glaube gestern). Unter GetIt wurde ein Update dafür angezeigt. Nun wird wenigstens ein dünner Rahmen um das Fenster gezeichnet...