dephi 系统以托盘形式运行
我用dephi来实现教师机和学生机功能
现在希望学生机上的程序能够以托盘形式运行
不知道代码如何实现
希望大哥大姐们帮忙下
在线等
定给分
[解决办法]
procedure TMainForm.FormCreate(Sender: TObject);
begin
with TrayIconData do
begin
cbSize := SizeOf(TrayIconData);
Wnd := Handle;
uID := 0;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage := WM_ICONTRAY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title);
end;
Shell_NotifyIcon(NIM_ADD, @TrayIconData);
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;
[解决办法]
使用第三方控件吧， CoolTrayIcon 很好用，盒子上一搜就有
[解决办法]
CoolTrayIcon或者用API自己写吧，那个TrayIcon我用着不怎么好用，2009里面老是不能把窗体Show到前面，但API的就行，不知道为什么……
