如何最小化

larryuan 2000-04-12 08:57:00
在D5中,想要自己实现最小化,如点击一个按钮。
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.windowstate:=wsMinimized;
end;
这样只能缩到窗口左下角(不在任务条上),
如何缩到任务条上?
...全文
180 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
delphikk 2000-04-13
  • 打赏
  • 举报
回复
要是把MDI的子窗体最大化,该怎么做???
larryuan 2000-04-12
  • 打赏
  • 举报
回复
to wingsun:
就是一个普通的form
jll 2000-04-12
  • 打赏
  • 举报
回复
Delphi在封装Windows的窗体时是有些奇怪,用929的方法是上策,用Wingsun的方法在最小化主窗体时有时会连同子窗体一起最小话……
Wingsun 2000-04-12
  • 打赏
  • 举报
回复
你的窗口是MDI子窗口吗?
929 2000-04-12
  • 打赏
  • 举报
回复
在DELPHI中它对窗口的管理实际还有一个隐藏的APPLICATION所拥有的窗口,所以你对其它窗口最小化时,会有一些奇怪的现象,如果想把应用最小化,可用APPLICATION的MINIMIZE来完成。它实际上把APPLICATION这个窗口最小化,同时把其中的子窗口FORM1最小化。
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Minimize ;
end;
larryuan 2000-04-12
  • 打赏
  • 举报
回复
谢谢,终于可以缩到任务栏了。
但是还是和默认的最小化按钮不太一样:
我新建一个工程,在Form1上添加一按钮,然后
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ParentWindow:=GetDesktopWindow();
form1.windowstate:=wsMinimized;
end;
运行点击按钮,Form1单缩到任务栏,与Project分着。
这是为什么,如何改呢?
Wingsun 2000-04-12
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.ParentWindow=GetDesktopWindow();
form1.windowstate:=wsMinimized;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧