Заметил, что в новой версии Дельфи 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;
Вопрос: зачем нужна эта функция?
Заметил, что в новой версии Дельфи 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; Вопрос: зачем нужна эта функция?