- Какая разница между вирусом и Windows XP?
- Вирус стабильнее работает.
type
TForm1 = class(TForm)
protectedprocedure CreateParams(var Params: TCreateParams); override;
end;
var
Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.CreateParams(var Params: TCreateParams);
const
CS_DROPSHADOW = $00020000;
begininherited;
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;
Статья Включить Drop Shadow Effect окна в XP раздела Программа и Интерфейс Интерфейс может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.