Проблема FMXInno - Закругление формы (Решено)

[Xenium]

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[Code]
type
  HRGN = Longword;

function SetWindowRgn(bWnd: HWND; bRgn: HRGN; bRedraw: boolean): integer; external 'SetWindowRgn@User32.dll stdcall';
function CreateRoundRectRgn(x1, y1, x2, y2, w, h: integer): HRGN; external 'CreateRoundRectRgn@Gdi32.dll stdcall';


procedure InitializeWizard();
begin
  SetWindowRgn(WizardForm.Handle, CreateRoundRectRgn(5, 5, WizardForm.Width, WizardForm.Height, 30, 30), true);
end;

Так я об этом написал же)
А дальше форму натяни FMX... но окно будет неактивное.

 

[Xenium]

@audiofeel, @BLACKFIRE69 , Доброго)

1)Столкнулся с проблемой, что форма картинкой не совсем подходит в моем случае - если на нее накладываю еще картину - форма автоматом квадратная становится(по размеру новой картинки поверх старой).

2)Если делать через SetWindowRgn, то тут 2 ситуации:

• a) Форма круглая,фоновая картинка и все следующие ложатся исправно, но сама форма становится неподвижной. (Это если делать чисто через InstallerForm.FCreateNormal(WizardForm.Handle)
• b) Форма становится "подвижной", а именно основная форма WizardForm остается неизменной (но закругленной), далее слой FMX же оказывается "внутри" формы WizardForm и двигается в рамках нее только (сама картинка квадратная но ограничена округлой формой) - Данный случай справедлив для всех InstallerForm.FCreate*** кроме InstallerForm.FCreateNormal.

Может есть мысли на это счет?
Как заставить форму двигаться в случае "a)" - InstallerForm.FCreateNormal(WizardForm.Handle) ?

 

[audiofeel]

procedure AddMousedownControls(FControl : TFmxObject);

нацепите на что ни будь и таскайте за нее, в примере ни же за лейбл.
FMXForm.AddMousedownControls(TitleLbl.Handle);

 

[Xenium]

procedure AddMousedownControls(FControl : TFmxObject);

нацепите на что ни будь и таскайте за нее, в примере ни же за лейбл.
FMXForm.AddMousedownControls(TitleLbl.Handle);

Коллега, ну обижаете... Я вроде максимально подробно и доступно расписал.

 

[BLACKFIRE69]

Коллега, ну обижаете... Я вроде максимально подробно и доступно расписал.

 

[Xenium]

Посмотреть вложение 7850

Посмотреть вложение 7851

Посмотреть вложение 7852


Посмотреть вложение 7853

Thank you so much for your help. Turns out the answer was close and I was trying to apply the solution in the wrong place)))))

 

[audiofeel]

Можно еще так без SetWindowRgn. Радиус получается более сглаженный

Спойлер: картинка