Вопрос Как добавить тень на форму?

[Shift85]

Подскажите пожалуйста как добавить тень на форму.

 

[Хамик]

Shift85,

[Setup]
AppName=11
AppVersion=1.1
DefaultDirName={pf}\11

[Code]
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint; external 'SetClassLongA@user32 stdcall';

procedure InitializeWizard;
begin
//WizardForm.BorderStyle:= bsNone; //Скрываем границы инсталлятора
SetClassLong(WizardForm.Handle, (-26), GetWindowLong(WizardForm.Handle, (-27)) or $00020000); //Чтобы отрисовалась тень от окна инсталлятора
end;

 

[Snoopak96]

Хамик, там ботва2 и две формы, ну и инстал который писался на коленке в 2012 году

 

[Shift85]

Snoopak96, Возможно ли улучшить этот пример:

 

[Snoopak96]

Shift85, мелочи - такие как таскание за вторую форму и передача фокуса когда таскаешь за неё, формы надо показывать после загрузки то бишь ShowWindow(WizardForm.Handle, SW_HIDE); и ShowWindow(WizardForm.Handle, SW_SHOW); Frame.Show, ботву надо выгружать правильно если инсталл двухязычный и есть окно выбора языка, ну вообщем мелочи - всё это в PDA-S.t.a.l.k.e.r найдёшь, мне же уже инсталлы на ботве не интересны стали вот, как-то так. Тебе сейтер что ли скрипт дал?

 

[Shift85]

Тебе сейтер что ли скрипт дал?

Не а с разных скриптов склепал.