关于托盘！(70分)

小弟是新手,初数delphi 请各位高手路过,指点迷津!!<br>不太了解window API,和Tmessage类,还有消息,也没看到书上讲,谁知道有介绍这方面的书(delphi7 )请发个地址或发到我的E-mail!地址是:langwei2727@sina.com<br>第一次做托盘,什么都不太明白,请高手指点<br><br>Tpoint //是什么类型??????<br>Tmessage.LParam //是什么属性???<br>Tmessage.WParam //是什么属性???<br>wm_user &nbsp;//是什么??<br>sc_minimize //是什么??<br>procedure mousemsg1(var msg:tmessage);message MI_iconevent;//message MI_iconevent 表示什么<br>原码如下,?号都是不太明白的地放,请指点<br>const <br> iid=100; <br> mousemsg=wm_user+1; <br><br><br>procedure mousemsg1(var msg:tmessage);message mousemsg; <br>procedure mymsgproc(var msg:tmessage);message wm_syscommand; <br><br><br>procedure tform1.mymsgproc(var msg:tmessage); <br>begin <br> inherited; <br> case msg.WParam of //????<br> &nbsp; SC_MINIMIZE: //?????<br> &nbsp; begin <br> &nbsp; &nbsp; button7click(self); <br> &nbsp; end <br> else <br> &nbsp; inherited; <br> end; <br>end; <br>procedure tform1.mousemsg1(var msg:tmessage); <br>var <br> mousept:tpoint; //???<br>begin <br> inherited; <br> if msg.LParam =wm_rbuttonup then begin <br> &nbsp; getcursorpos(mousept); <br> &nbsp; popupmenu1.Popup(mousept.X,mousept.y) ; <br> end; <br>end; <br>procedure TForm1.Button7Click(Sender: TObject); <br>begin <br> /////////////////////////////////////// <br> ntida.cbSize :=sizeof(tnotifyicondata); //以下的这几个属性是什么意思??<br> ntida.Wnd :=handle; <br> ntida.uID :=iid; <br> ntida.uFlags :=nif_icon+nif_tip+nif_message;//nif_icon+nif_tip+nif_message,这是什么??? <br> ntida.uCallbackMessage :=mousemsg; <br> ntida.hIcon :=application.Icon.Handle ; //application.Icon.Handle ??<br> ntida.szTip :='icon'; <br> <br> shell_notifyicon(NIM_ADD,@ntida); //??????<br> <br> Application.Minimize ; //???<br> showwindow(handle,SW_HIDE); //??<br> showWindow(Application.Handle ,SW_HIDE); <br>end; <br>////////////////////////////////////////////////////////// <br>procedure TForm1.N2Click(Sender: TObject); <br>begin <br> /////////////////////////////////////// <br> ntida.cbSize :=sizeof(tnotifyicondata); <br> ntida.Wnd :=handle; <br> ntida.uID :=iid; <br> ntida.uFlags :=nif_icon+nif_tip+nif_message; <br> ntida.uCallbackMessage :=mousemsg; <br> ntida.hIcon :=application.Icon.Handle ; <br> ntida.szTip :='icon'; <br> ///////////////////////// <br> shell_notifyicon(NIM_DELETE,@ntida); <br> //////////////////////////////////////// <br> showwindow(handle,SW_SHOW); <br> showwindow(application.Handle ,SW_SHOW); <br>end;

顶

Tpoint //是指针类<br>Tmessage.LParam //应该是本地参数<br>Tmessage.WParam //是句柄参数<br>wm_user &nbsp;//用户操作参数<br>sc_minimize //是最小话操作

TPOINT其实是一个Point的结构体，由成员x和y组成，主要用于读取鼠标当前坐标的，這裏應該是 消息创建时的鼠标位置<br>Tmessage.LParam //// 32位消息的特定附加信息，通常是一个与消息有关的常量值，也可能是窗口或控件的句柄。 具體需求參照MSDN<br>Tmessage.WParam //32位消息的特定附加信息，通常是一个指向内存中数据的指针。 具體需求參照MSDN<br>wm_user &nbsp;//用戶自定義的消息<br>sc_minimize //窗口响应WM_SYSCOMMAND消息,Message.CmdType=SC_MINIMIZE ，最小化消息 &nbsp; &nbsp;<br>procedure mousemsg1(var msg:tmessage);message MI_iconevent;//message MI_iconevent //這個應該是你自定義消息的標識吧<br>ntida.hIcon :=application.Icon.Handle ; //當前應用程序的圖標<br>shell_notifyicon(NIM_ADD,@ntida); //用API shell_notifyicon 在任務欄上加圖標<br> Application.Minimize ; //最小化應用程序<br> showwindow(handle,SW_HIDE); // 隐藏窗口

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3605229

http://www.delphibox.com 上有电子书很好的，可去下本来看看。

关键是我想要的是书名，我下的书都没有介绍这方面的，谁能介绍一下，特别是介绍window API,和Tmessage类的delphi书，在此谢谢了，明天上午结分，有书的给我发过来，一定给分

兄弟介紹你兩本書，然後給分。。。<br>《Delphi高手突破》<br>《深入核心－－VCL架構剖析》<br>還有就是《Delphi 精要》<br>沒了，我所知道的就這三本還好，別的和Delphi與Message相關的書籍我就不知了<br>其實感覺一般只要不是只講數據庫的書，就都與Message想關點的。<br>我只有《Delphi高手突破》電子板的，要的話給我發E_mail，剩下的全靠買的書。<br>我E_mail是<br>tommy8207@126.com

很多的,初级的话还是看些基础的好,我就看不懂《深入核心－－VCL架構剖析》

23981160---Q群，大家一起讨论啊

我晕, 楼主没写过程序吧.

多人接受答案了。