任务栏程序

Question

if FORM1.WindowState=wsMinimized then
  begin
  form1.hide;
  ShowWidnow(Application.Handle,SW_Hide);
  end;

Answer 1

但还是没有把APPLICATION窗口隐藏，好象我的DELPHI6没有响应ONRESIZE事件。我用如下代码作测试：if FORM1.WindowState=wsMinimized then
  begin
  Label1.Caption:='OK';
  end;
当我再次激活窗口时，Label1.Caption的标题还是Label1.何解？

Answer 2

在项目文件中加
application.showmainform:=false;

Answer 3

计时器？怎么计法？在DELPHI中如何写窗体最小化的事件句柄？

Answer 4

在Application.OnMinimize中
{应用程序最小化时图标显示在任务栏}
procedure TMainForm.AppMinimized(Sender:TObject);
begin
  NID.cbSize:=SizeOf(TNotifyIconData);
  NID.hIcon:=Application.Icon.Handle;
  NID.szTip:= '彩虹2.0 Beta ';
  NID.uCallbackMessage:=WM_TrayMessage;
  NID.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NID.uID:=0;
  NID.Wnd:=Handle;
  Shell_NotifyIcon(NIM_ADD,@NID);
  ShowWindow(Application.Handle,SW_Hide);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=AppMinimized;
  AppMinimized(nil);
end;

Answer 5

to taxi(游少爷)　：这段代码写在哪里呀？

Answer 6

AppMinimized是自定义的过程，是Application的OnMinimize事件，在Application的OnMinimize事件中ShowWindow(Application.Handle,SW_Hide);

Answer 7

用TApplicationEvents组件,它有OnMinimize与OnRestore事件

Answer 8

加入这一句试试
  Application.ShowMainForm:= False;