Delphi窗口无边框时显示窗口阴影
procedure CreateParams(var Params:TCreateParams);override;
//........
procedure TfMain.CreateParams(var Params: TCreateParams);
// uncomment this if CS_DROPSHADOW is not already defined...
//const
//CS_DROPSHADOW = $H20000;
begin
inherited;
// for XP and later only...
if (Win32MajorVersion>5) or ((Win32MajorVersion = 5) and (Win32MinorVersion>= 1)) then
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;