|
ایجاد سایه در زیر فرم ها
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;
| |
|
