请问，将程序图标放入托盘后，如何去除任务中的那条东东？？(30分)

DELPHI门外汉 · 2002-07-14

请给出代码，并说明一下具体原理，谢谢

刘李子 · 2002-07-14

SHOWWINDOW(HWND,SW_HIDE);

gxcooo · 2002-07-14

ShowWindow(form1.handle,SW_HIDE);

LittleIsland · 2002-07-14

Form1.Hide

twos · 2002-07-15

showwindow(Application.Handle,sw_hide)去除任务栏上的东东 showwindow(form1.Handle,sw_hide)隐藏窗体

w12345678 · 2002-07-15

同意twos

DELPHI门外汉 · 2002-07-15

你们是在开玩笑吗？？ 上面那些代码我试过了，不奏效。 再说handle不等于hwnd。 [

!][

!]

枫 · 2002-07-15

上的代码肯定有效，我也这样用的。

coolbaby · 2002-07-15

有效

刘李子 · 2002-07-15

showwindow(application.handle,sw_hide);

YoungSun · 2002-07-15

application.showmainform := false; // 写在DPR文件中。

DELPHI门外汉 · 2002-07-15

仅过一番查找 我找到答案了 用 SetWindowLong (Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW) showwindow()不能去除应用程序在任务条栏上那条东西； 不过分还是有的，不过略微少了些

coolzew · 2002-07-15

我在www.developres.com上上傳了一個控件,有源碼. eMaxTrayIcon下載來看看就知道了.

DELPHI门外汉 · 2002-07-15

控件我不想用，用了后程序会变肥。

DELPHI门外汉 · 2002-07-15

简直太开玩笑，还不如看人家控件的源代码呢

hamsoft · 2002-07-15

厉害。

HeyTommy · 2002-08-01

谁说ShowWindow()不可以隐藏哦？ 如果你要在应用程序窗体最小化的时候隐藏，那么你要写如下的函数： procedure TForm1.MinimizeForm(Sender:TObject); begin   //Hide Application Task Bar   ShowWindow(Application.Handle,SW_HIDE); end; 然后在Form1的构造函数加入下列语句： Application.OnMinimize:=MinimizeForm; 如果你是要在程序开始运行的时候就要隐藏主窗体和任务栏，加以下语句： 在Form1的构造函数中加： PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); 如果你仅要隐藏任务栏，那就在窗体的构造函数中加下列语句： ShowWindow(Application.Handle,SW_HIDE); 以上语句肯定是正确的，因为我已经在一个项目中实现了并交与用户使用了，根本没任何 问题。 如果还不放分，那在E-MAIL中告诉我你的E-MAIL，我给你源代码！ 我的E-MAIL：heytommy@163.com

HeyTommy · 2002-08-01

写了才发现没完整： 谁说ShowWindow()不可以隐藏哦？ 如果你要在应用程序窗体最小化的时候隐藏，那么你要写如下的函数： procedure TForm1.MinimizeForm(Sender:TObject); begin   //Hide Application Task Bar   ShowWindow(Application.Handle,SW_HIDE); end; 然后在Form1的构造函数加入下列语句： Application.OnMinimize:=MinimizeForm; 如果你是要在程序开始运行的时候就要隐藏主窗体和任务栏，在指定了上面的语句的情况下 还要加以下语句： 在Form1的构造函数中加： PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); 如果你仅要隐藏任务栏，那还要在窗体的构造函数中加下列语句： ShowWindow(Application.Handle,SW_HIDE); 而不用发上面的消息了！ 以上语句肯定是正确的，因为我已经在一个项目中实现了并交与用户使用了，根本没任何 问题。 如果还不放分，那在E-MAIL中告诉我你的E-MAIL，我给你源代码！ 我的E-MAIL：heytommy@163.com

hb207 · 2002-08-02

我试了HeyTommy的做法，是可以将主窗体从任务栏上去掉的。但不知HeyTommy有没有遇到 过以下情况：我是把主窗体最小化（用了你的方法）到托盘（TRAY）上的，但将主窗体 最大化后，发现最小化按钮不起作用了。我控制托盘图标的代码如下： procedure TFrm_data.TrayIconCallBack(var Msg:TMessage); begin   case Msg.LParam of     WM_LBUTTONDBLCLK:  //双击最大化和最小化       begin         Visible:=not Visible;         Application.ShowMainForm:=Visible;         SetForegroundWindow(Application.Handle);       end;   end; end; 如果将最小化的代码改成： procedure TFrm_data.MinimizeForm(Sender:TObject); begin   //Hide Application Task Bar {  ShowWindow(Application.Handle,SW_HIDE);}   Visible:=FALSE;   Application.ShowMainForm:=FALSE; end; 则最小化时任务栏没有该东东，最大化时有东东（这是我的要求）；但先最小化后再最大化 发现主窗体上的最小化按钮已经不起作用，原来还要右键一下任务栏上的东东“恢复”一次 ，才能最小化。请问这是什么原因？（能做到FOXMAIL的效果是我的要求） 多多指教，谢谢！

HeyTommy · 2002-08-03

hb207: 是可以做到这点的，我最近两天做了一个小程序，呵呵，就是FOXMAIL这样的效果，很容易啊， 我上面讲的只是如何将主窗体从任务栏里隐藏掉，要恢复的话，很容易，你需要在TRAY里的 回调函数中写代码，将窗体恢复就行了！ 你的回调函数不能是这样的，要象如下的形式，我给你原码： procedure TFrm_data.TrayIconCallBack(var Msg:TMessage); begin   case Msg.LParam of     WM_LBUTTONDBLCLK:               begin          //Restore Application Window          ShowWindow(Application.Handle,SW_RESTORE);          SetForeGroundWindow(Application.Handle);       end;   end; end; 你看出来了吗？你使用了 ShowWindow(Application.Handle,SW_HIDE)后如果要再正常显示， 仍然要用这个函数，但需要使用SW_RESTORE参数了，然后还要把应用程序窗体设为前景窗体。 你知道你写的这个函数的问题了吗？ 你通过设置Application.ShowMainForm的属性是无法实现的，你不也说了吗？是要用鼠标来 “恢复”才行，这就对了塞，当你使用ShowWindow(Application.Handle,SW_HIDE)后，应用 程序在任务栏上的属性被设置为HIDE属性了，所以要恢复原来的样子，还要用它来恢复， 其实这属于“应用程序工具栏”编程的范畴了，也就是象任务栏这样的，你如果想深入一点， 可以尝试一下进行“AppBar”编程，呵呵，，方法是差不多的！

请问，将程序图标放入托盘后，如何去除任务中的那条东东？？(30分)

DELPHI门外汉

Unregistered / Unconfirmed

刘李子

Unregistered / Unconfirmed

gxcooo

Unregistered / Unconfirmed

LittleIsland

Unregistered / Unconfirmed

twos

Unregistered / Unconfirmed

w12345678

Unregistered / Unconfirmed

DELPHI门外汉

Unregistered / Unconfirmed

枫

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

刘李子

Unregistered / Unconfirmed

YoungSun

Unregistered / Unconfirmed

DELPHI门外汉

Unregistered / Unconfirmed

coolzew

Unregistered / Unconfirmed

DELPHI门外汉

Unregistered / Unconfirmed

DELPHI门外汉

Unregistered / Unconfirmed

hamsoft

Unregistered / Unconfirmed

HeyTommy

Unregistered / Unconfirmed

HeyTommy

Unregistered / Unconfirmed

hb207

Unregistered / Unconfirmed

HeyTommy

Unregistered / Unconfirmed

Similar threads