A
asbeforelong
Unregistered / Unconfirmed
GUEST, unregistred user!
如何让窗体最小化时只在任务托盘显示为一个小图标？并且鼠标右击小图标时能弹出菜单？^_^ 最好给出尽量简单一点的源程序，谢谢了。^_^<br>
J
jrq
Unregistered / Unconfirmed
GUEST, unregistred user!
比较简单的，下载一个CoolTrayIcon控件用（第三方的）。<br><br>想自己写的话，搜搜以前的帖子，这个讨论很多的。
A
Admy
Unregistered / Unconfirmed
GUEST, unregistred user!
留个地址，我给你发个程序源码
H
hbhxj
Unregistered / Unconfirmed
GUEST, unregistred user!
我也想知道.我的地址:sjj1226@sohu.com 先谢谢了.
F
form1.
Unregistered / Unconfirmed
GUEST, unregistred user!
我也想知道<br>xieshao@183.ha.cn<br>谢谢了
N
nexthawks
Unregistered / Unconfirmed
GUEST, unregistred user!
const WM_MYTRAYICONCALLBACK = WM_USER + 1000;<br><br>type<br> TForm1 = class(TForm)<br> ...<br> n_MainFromDispOrHide: TMenuItem;<br> private<br> { Private declarations }<br> MyTrayIcon : TNotifyIconData; //定义一个托盘图标的类<br> procedure TrayShow(Sender: TObject);<br> procedure WMMyTrayIconCallBack(var Msg : TMessage); //处理点击托盘图标的事件<br> message WM_MYTRAYICONCALLBACK;<br> procedure n_MainFromDispOrHideClick(Sender: TObject);<br> procedure FormCreate(Sender: TObject);<br> procedure FormClose(Sender: TObject; var Action: TCloseAction);<br> ...<br>end;<br><br>procedure TForm1.TrayShow(Sender: TObject);<br>//当点击托盘图标时显示或隐含主窗体<br>begin<br> TrayBarPopMenu.AutoPopup:=False;<br> //设定 TNotifyIconData 的记录长度<br> MyTrayIcon.cbSize :=SizeOf(tnotifyicondata);<br> //确定调用程序的窗体句柄<br> MyTrayIcon.Wnd :=Handle;<br> //确定图标的 uID<br> MyTrayIcon.uID :=1;<br> //设定显示标记<br> MyTrayIcon.uFlags :=NIF_ICON or NIF_TIP or NIF_MESSAGE;<br> //用户自定义消息<br> MyTrayIcon.uCallbackMessage := WM_MYTRAYICONCALLBACK;<br> //托盘图标的句柄<br> MyTrayIcon.hIcon := Application.Icon.Handle;<br> //托盘图标的提示信息<br> MyTrayIcon.szTip :='定时导数据程序';<br> //向托盘中添加图标<br> Shell_NotifyIcon(NIM_ADD,@mytrayicon);<br>end;<br><br>procedure TForm1.WMMyTrayIconCallBack(var Msg: TMessage);<br>//处理点击托盘图标的事件，根据 WM_MOUSEMOVE 消息的不同情况产生不同的回应<br>var<br> CursorPos : TPoint;<br>begin<br> TrayBarPopMenu.AutoPopup:=False;<br> case Msg.lParam of<br> //左键按下<br> WM_LBUTTONDOWN : begin<br> application.MainForm.BringToFront; //窗体置前<br> end;<br> //左键双击<br> WM_LBUTTONDBLCLK : begin //窗体隐含或显示<br> Application.MainForm.Visible := not Application.MainForm.Visible;<br> SetForegroundWindow(Application.Handle);<br> end;<br> //右键按下<br> WM_RBUTTONDOWN : begin //显示弹出菜单<br> GetCursorPos(CursorPos);<br> TrayBarPopMenu.Popup(CursorPos.x,CursorPos.y);<br> end;<br> end//case<br>end;<br><br>procedure TForm1.n_MainFromDispOrHideClick(Sender: TObject);<br>begin<br> if Application.MainForm.Visible then<br> begin<br> if FormStep1.Showing Then FormStep1.Hide;<br> if FormStep2.Showing Then FormStep2.Hide;<br> Application.MainForm.Hide;<br> n_MainFromDispOrHide.Caption :='显示主窗体';<br> end<br> else<br> begin<br> Application.MainForm.Show;<br> n_MainFromDispOrHide.Caption :='隐藏主窗体';<br> end;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//程序不在任务栏上显示<br> TrayShow(Application.MainForm);//显示图标<br>end;<br><br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> Shell_NotifyIcon(NIM_DELETE, @MyTrayIcon);//删除托盘图标<br>end;
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
可以去看看下面的控件<br><br>CoolTrayIcon <br><br>自动将Form缩小为TrayIcon,可设置MinimizeToTrayIcon为True,则Form最小化时不显示在任务栏上。<br>个人认为较RxLib中的RxTrayIcon好用，而且还有源代码哦！<br><br>新增加了些属性和方法，如BitMapToIcon方法可以将位图转换为Icon使用。此外，还添加了一个新控件<br>TextTrayIcon，它直接将文字作为Tray Icon，可以设置字体、颜色等，和Timer结合起来你就可以实现动态文字的TrayIcon了，这还是满酷的嘛
。<br><br>完整功能. 源代码: 有 <br>适用于 CB3 CB4 CB5 D2 D3 D4 D5 D6 <br><br>设置几个属性就可以了<br>有例子程序<br>http://www.playicq.com/dispdoc.php?t=&id=2508
。<br><br>完整功能. 源代码: 有 <br>适用于 CB3 CB4 CB5 D2 D3 D4 D5 D6 <br><br>设置几个属性就可以了<br>有例子程序<br>http://www.playicq.com/dispdoc.php?t=&id=2508
K
ken_gj
Unregistered / Unconfirmed
GUEST, unregistred user!
to:Admy<br>你有没有应用的例子，发一个给我吧<br> metal@win88.net<br>谢谢了！
V
vine
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的<br>http://www.playicq.com/dispdoc.php?t=&id=2508<br>里面的就有一个好的例子呵
A
Admy
Unregistered / Unconfirmed
GUEST, unregistred user!
to ken_gj:<br> 已发送，请查收