Description

This point shows the way of applying shadows to forms. This method works only for Win2000 or later (2K,XP,2003,Vista,...)

Delphi code

type
Tform1 = class(TForm)
private
    { Private declarations }
    Procedure CreateParams(Var Params: TCreateParams); override;
end;

implementation

{$R *.DFM}

procedure Tform1.CreateParams(var Params: TCreateParams);
begin
    inherited;
    if CheckWin32Version(5, 1) then
        Params.WindowClass.Style := Params.WindowClass.style or CS_DROPSHADOW;
end;