Hi,
aber nicht vergessen: unter Windows 2000 schlägt die Funktion mit EOSError 87 fehl. Also aufpassen
Ich überschreib CreateParams dafür in einem Basisform:
Delphi-Quellcode:
procedure TfrmDefaultForm.CreateParams(var Params: TCreateParams);
begin
inherited;
if (Win32IsMinXP and not Win32IsMinVista) or
(Win32IsMinVista and not ThemeServices.ThemesEnabled) then
begin
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;
...
end;
Die Funktionen für die
OS sind denke ich selbst herstellbar. Der Schatten wird für XP und Vista
ohne aktivierte Themes eingeschaltet.
Gruß Assertor