Form Region-почему так происходит

[Nester]

Создаю регион присваиваю его форме-всё ок
но стоит выполнить FormStyle:=fsStayOnTop как регион игнорируется

подскажите почему так происходит?

Вот пример:

[alexBlack]

Скорее всего из-за этого:

Delphi 7:

procedure TCustomForm.SetFormStyle(Value: TFormStyle);
begin
  if FFormStyle <> Value then  begin
     //...
    if not (csDesigning in ComponentState) then DestroyHandle;
    //...
    if not (csDesigning in ComponentState) then UpdateControlState;
    //...
  end;
end;

а, в D10 работает нормально, т.к. изменение производится без удаления Handle:

procedure TCustomForm.SetFormStyle(Value: TFormStyle);
begin
  if FFormStyle <> Value then begin
    if ((Value = fsNormal) and (FFormStyle = fsStayOnTop)) or
       ((Value = fsStayOnTop) and (FFormStyle = fsNormal)) then
    begin
      FFormStyle := Value;
      if not (csDesigning in ComponentState) and HandleAllocated then
        SetWindowPos(Handle, HWND_STYLE[FFormStyle = fsStayOnTop], 0, 0, 0, 0,
          SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);
    end
   //...

Так, что попробуйте SetWindowPos() вместо FormStyle := ...

[Nester]

Спасибо!
сделал так

SetWindowPos(Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW);

[Nester]

Может кому сгодится:
FormStyle:=fsStayOnTop

SetWindowPos(Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW);

FormStyle:=fsNormal

SetWindowPos(Form1.Handle, HWND_NOTOPMOST, Form1.Left ,Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW);