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

PDF Печать
Статьи

Как сделать прозрачную тень под окном.

Если Вы хотите иметь хороший вид приложения, Вам, конечно, нужна прозрачная тень под окном.


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; 

По материалам http://delphi3000.com


 

Добавить комментарий


Защитный код
Обновить