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