Windows 11 Style Dark-Mode und Fensterschatten

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