توضیح

روش ایجاد سایه در زیر فرم های دلفی. در این روش با اضافه کردن استیل سایه با خاصیت ویندوز عمل می کند. این سایه مخصوص ویندوز های 2000 به بالاتر است.

کد دلفی

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;