有关Delphi托盘编程--》[X]

在托盘编程启动后，双击图标， 就弹出主窗口（这个已经实现）, 就是在点[X]时，我想让窗口还原到原来的地方，而不是离开，就象MSN那样，在点[X]时回到原来的地方！各位大哥怎么实现啊！

解决方案 »

  1.   

    先用自己写的最小化过程赋值给APPLICATION。ONMinimize
    在CLOSEQUERY
      

  2.   

    先用自己写的最小化过程赋值给APPLICATION。ONMinimize
    在CLOSEQUERY中写
     CanClose:=bClose;
      if not CanClose then
      begin
        self.WindowState:=wsMinimized;
      end;
      

  3.   

    procedure TFmTray.FormCreate(Sender: TObject);
    begin
      Application.OnMinimize:=MiniMize;
    end;procedure TFmTray.minimize(sender: Tobject);
    begin
      AddIcon(handle);
      ShowWindow(Application.handle, sw_hide)
    end;
      

  4.   

    Erice(白雪公猪) ：我试了还是不行啊！有没有其他的方法啊还有AddIcon(handle);是个什么过程啊！
      

  5.   

    截获SYSCOMMAND消息，处理其中的关闭，在里面SendMessage的最小化消息。
      

  6.   

    onclose:
    action:=canone;
    hide;
      

  7.   

    http://soft.56kc.com/FileDown.aspx?FID=178诀窍：弹出的不要使用主窗体就很好实现了！
      

  8.   

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
            action:=caNone;
            hide;
    end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
            canclose:=false;
            hide
    end;
      

  9.   

    谢谢： DemonLoveLizzy(魑魅魍魉)  这个方法可以实现