Сворачивание, разворачивание и FullScreen последних вопросов

Стиль ToolWindow

Mon, 04 Aug 2025 10:05:49 +0000

Окно как и положено не позволяет изменять свой размер. Но если дважды щелкнуть по заголовку окна, то оно раскрывается на весь экран. Delphi 11.3. платформа Windows. Это так и должно быть?

Исправление в TPlatformWin.MinimizeApp // MinimiseAllForms

Fri, 21 Feb 2025 02:04:49 +0000

Заметил, что в новой версии Дельфи 12.2 сворачивание окошек начало глючить: иногда не все окна сворачивает, и всегда при сворачивании большого кол-ва окон появляется визуальный лаг: окна сперва уходят в угол экрана, после чего уже пропадают совсем.

Посмотрел, что в старых версиях (10.2 например) в процедуре

TPlatformWin.MinimizeApp

не было функции MinimiseAllForms;

Отключил ее, поведение приложения стало лучше.

begin
  AnimationEnable := GetAnimation;
  try
    SetAnimation(False);
    if Application.MainForm <> nil then
    begin
      MainForm := Application.MainForm;
      WndPos := MultiDisplayWin.DpToPx(TPointF.Create(MainForm.Left, MainForm.Top));
      SetWindowPos(ApplicationHWND, FormToHWND(Application.MainForm), WndPos.X, WndPos.Y, Trunc(MainForm.Width), 0, SWP_SHOWWINDOW);
//      MinimiseAllForms;
    end;
    DefWindowProc(ApplicationHWND, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  finally
    SetAnimation(AnimationEnable);
  end;
end;

Вопрос: зачем нужна эта функция?

Всплывающее сообщение при его закрытии разворачивает приложение

Mon, 28 Jan 2019 07:20:22 +0000

Всем привет!
Delphi XE6 FMX
Есть приложение, главная форма на весь экран.
Пользователь сворачивает его.
Появляется всплывающее сообщение по таймеру - маленькая форма (Form1.Show).
Проблема:
При свернутом приложении когда появляется сообщение, закрываешь эту маленькую форму и разворачивается главное окно программы, а нужно просто закрыть уведомление и дальше работать с другими программами.

Как можно решить? Спасибо!

Вытащить главную форму поверх всех окон

Sat, 01 Dec 2018 22:26:58 +0000

Как программно вытащить главную форму приложения наверх? (Винда)

Перепробовал все, стабильно ничего не работает

  // Вариант 1
  WindowState := TWindowState.wsMinimized;
  Show;
  WindowState := TWindowState.wsMaximized;

  // Вариант 2
  If TPlatformServices.Current.SupportsPlatformService(IFMXWindowService, ws) 
    then ws.BringToFront(self);

  // Вариант 3
  PostMessage(FormToHWND(Self), WM_ShowWindow, SW_PARENTOPENING, 1);

  // Вариант 3b
  PostMessage(ApplicationHWND, WM_ACTIVATEAPP, 1, 0);

wsMaximized или почему форма "вылазит" за пределы экрана

Thu, 17 Mar 2016 13:59:39 +0000

Всем снова привет. При увеличении формы во вечь экран, она "вылазит" вверх и вниз на 10-15 птс. В чем может быть причина?

Креш при изменение в RunTime у формы BorderStyle/Transperency [OSX]

Sat, 09 Apr 2016 22:57:50 +0000

Столкнулся с такой проблемой, (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 в рантайме менять у формы прозрачность и бордер не вываливаясь в исключения, или нормально обрабатывать переход в полноэкранный режим у прозарчной (или без стандартного заголовка) формы

Спасибо

Как свернуть форму, находящуюся в режиме FullScreen?

Fri, 25 Sep 2015 08:19:04 +0000

Привет всем! Подскажите, как программно свернуть форму в панель задач, когда она развернута на весь экран (FullScreen = true)?

Сворачивание формы

Sat, 01 Aug 2015 09:04:23 +0000

Подскажите, возможно ли в FMX каким-либо образом обработать событие сворачивания формы?

Например, вместо сворачивания формы, спрятать ее (Hide).

Некоректная работа FullScreen

Fri, 17 Apr 2015 08:33:13 +0000

При использовании стиля со стилизированными бордюрами - проблема при FullScreen:=True; - все нормально отрабатывается, но при возврате в нормальный режим: FullScreen:=False; - происходит некоректное отображение формы.

XE7, под Windows (другие платформы не проверял)