频道分类

delphi Application.Restore不起作用了,该如何处理

作者:admin 来源: 日期:2018/3/3 23:51:21 人气: 标签:

 
Application.Restore不起作用了
窗体上只有一个Button和一个Timer(1秒计时)
代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled := False;
   Application.Restore
end;


单击Button后窗口最小化了,可是不能在1秒后自动还原。

运行环境:Delphi 2010 、Windows 7

------解决方案--------------------
设置为False后就可以了
Application.MainFormOnTaskbar := False;  // 加入截图程序 这句放到非form1 窗口