Карта сайтаСсылкиКонтакты

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

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


 

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


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