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

[bjg]

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

[Erice]

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

[Erice]

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

[Erice]

procedure TFmTray.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=MiniMize;
end;

procedure TFmTray.minimize(sender: Tobject);
begin
AddIcon(handle);
ShowWindow(Application.handle, sw_hide)
end;

[bjg]

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

[linzhengqun]

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

[delphizd]

http://soft.56kc.com/FileDown.aspx?FID=178

诀窍：弹出的不要使用主窗体就很好实现了！

[DemonLoveLizzy]

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;

[bjg]

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

[JJNW]

onclose:
action:=canone;
hide;