Question

delphi中窗口最大最小化问题

我的最小化按钮失效了 我不知道原因
然后加了以下代码
Application.OnMinimize:=HideForm;
procedure TForm1.HideForm(Sender: TObject);
begin
ShowWindow(Self.Handle,SW_MINIMIZE);

end;
就可以最小化了
但是由于我用了 Params.WndParent := GetDesktopWindow;
在任务栏会有两个窗口 一个是application 一个是form
第一次打开窗口 可以最小化
再点一下任务栏的form 最小化就又失效了
除非点一次application 再点一下form才能最小化

有什么方法可以解决啊

Answer 1

这个是微软设置的。 最小化的点击操作是 “还原” 而不是“最大化”

如果楼主想要最大化，可以在 onshow 事件里面进行控制

Answer 2

最小化按钮失效了？是灰掉了不可用吗？你到form窗体的属性设置里看一下BorderIcons的设置，点击它左侧的“+”展开，看一下biminimize是否为true。

追问

不是，是点了没效果，加上上面的代码 再点第一次的时候能最小化 后面就不行了