Поиск сообщества

Столкнулся с такой проблемой, (Delphi Seattle, OSX+ WIndows 10) делаю форму со своим заголовком, при установленных свойствах Transperency := True или BorderStyle := None, переход в режим FullScreen не отрабатывается корректно (форма не изменяет размер на максимальный), решил перед переходом в полноэкранный режим устанавливать Transperency := False и BorderStyle отличный от None, но программа вылетает, иногда сразу иногда на 2-3 раз смены параметров, причем независимо от того что меняю прозрачность или бордер. если запускать через отладчик то вываливается на такое - в System.Internal.ExcUtils; { RaiseSignalException is called from SignalConverter, once we've made things look like there's a legitimate stack frame above us. Now we will just create an exception object, and raise it via a software raise. } procedure RaiseSignalException(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode: LongWord); begin raise GetExceptionObject(ExceptionEIP, FaultAddr, ErrorCode); end; под Windows все работает нормально, без всяких выкрутасов для проверки можно сделать пустую форму, две кнопки , и скажем панель за которую перетаскивать форму и три обработчика- procedure TForm1.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin if (Button = TMouseButton.mbLeft) and (y < 25) then StartWindowDrag; end; procedure TForm1.sbExpandClick(Sender: TObject); begin i f BorderStyle = TFmxFormBorderStyle.None then BorderStyle := TFmxFormBorderStyle.Single else BorderStyle := TFmxFormBorderStyle.None; end; procedure TForm17.sbFullClick(Sender: TObject); begin FullScreen := not FullScreen; end; Может кто то сталкивался, как под OSX в рантайме менять у формы прозрачность и бордер не вываливаясь в исключения, или нормально обрабатывать переход в полноэкранный режим у прозарчной (или без стандартного заголовка) формы Спасибо