طريقة اعجبتني لاضافة ضل الى النموذج ليعطيه بعداً ووضوحا عن باقي النماذج

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه

1.  
2. [size="2"]type
3.  
4. TForm1 = class(TForm)
5.  
6. protected
7.  
8. procedure CreateParams(var Params: TCreateParams); override;
9.  
10. end;
11.  
12. var
13.  
14. Form1: TForm1;
15.  
16. implementation
17.  
18. {$R *.dfm}
19.  
20. procedure TForm1.CreateParams(var Params: TCreateParams);
21.  
22. const
23.  
24. CS_DROPSHADOW = $00020000;
25.  
26. begin
27.  
28. inherited;
29.  
30. Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
31.  
32. end;
33.  
34. [/size]
35.  
36.  
37.