DropShadow

[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