Внешний вид сайта:

Прозрачная тень под окном

Как сделать прозрачную тень под окном. Если Вы хотите иметь хороший вид приложения, Вам, конечно, нужна прозрачная тень под окном.
type 
  TForm1 = class(TForm) 
protected 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.CreateParams(var Params: TCreateParams); 
const 
  CS_DROPSHADOW = $00020000; 
begin 
  inherited; 
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW; 
end; 

Комментарии

Нет комментариев. Ваш будет первым!