procedure TPlatformWin.Activate(const AForm: TCommonCustomForm); var Wnd: HWND; begin exit; // 解决在Windows任务栏中,点击窗口图标时,无法缩小、放大 Wnd := FormToHWND(AForm);
2315行,WM_WINDOWPOSCHANGING消息前,加上 WM_SHOWWINDOW: begin if (wParam = SW_SHOWNORMAL) and (lParam = SW_MAXIMIZE) then begin if LForm.WindowState = TWindowState.wsMaximized then begin Winapi.Windows.ShowWindow(hWnd, SW_SHOWMAXIMIZED); exit; end; end; Result := DefWindowProc(hwnd, uMsg, wParam, lParam); end; 主要是解决当窗口是最大化状态时,缩小到Windows任务栏,再restore窗口时,窗口自动由最大化变成了Normal。这个地方解决的不是很科学,这种处理方法可能也不是很正确。测试了达到我的要求了。
----------------------------------------------
-