DropShadow

[Shaman]

Hallo zusammen

Wenn man CreateParams so überschreibt:

Delphi-Quellcode:

procedure TForm1.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
begin
  inherited;
  if (Win32Platform = VER_PLATFORM_WIN32_NT) and
     ((Win32MajorVersion > 5) or ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1))) then
    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

sollte unter XP ja eigentlich ein Schatten zu sehen sein. Nur passiert bei mir nichts... Fehlt noch was?

Gruss
Shaman

[Sanchez]

Bei mir gibts nen Schatten.
Hast du vielleicht das override bei der Deklaration vergessen?

    procedure CreateParams(var Params: TCreateParams); override; grüße, daniel

[Shaman]

Nein, hab ich. Bleibt er bei dir auch wenn Du die Form verschiebst, minimierst etc.?

[Christian Seehase]

Moin Daniel,

vor dem Setzen des Stils, musst Du noch die Anzeige eines DropShadow aktiviert haben:

SystemParametersInfo(SPI_SETDROPSHADOW,0,Pointer(true),0);

[Sanchez]

Jo, bleibt er. Ganz egal was ich mit dem Fenster mache.

[Shaman]

SystemParametersInfo(SPI_SETDROPSHADOW,0,Pointer(true),0); Danke, den hats gebraucht!

Gruss
Shaman

[Shaman]

Hier noch eine handliche Funktion:

Delphi-Quellcode:

{ Am bestem im Konstruktor aufzurufen }
function  DropShadow(const Handle: THandle): Boolean;
  function IsXP: Boolean;
  begin
    Result:= (Win32Platform = VER_PLATFORM_WIN32_NT) and
             ((Win32MajorVersion > 5) or ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)));
  end;
const
  SPI_SETDROPSHADOW = $1025;
  CS_DROPSHADOW = $00020000;
begin
  Result:= IsXP and SystemParametersInfo(SPI_SETDROPSHADOW, 0, Pointer(True), 0) and
           (SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW) <> 0);
end;

Aber es ist schon ein wenig drauf, liegt bei mir die Form über einer anderen eigenen, wird der Schatten nicht angezeigt...

Gruss
Shaman