社区
Windows SDK/API
帖子详情
系统栏显示问题。。。。
yelei0913
2003-08-20 09:36:56
怎样让程序运行的时:
最小话时不显示在任务栏 而只显示在系统栏,也就是象QQ那样,最小话时只显示在右下角??
然后点图标右键显示某些功能?? 谢谢
有例子更好!
...全文
36
1
打赏
收藏
系统栏显示问题。。。。
怎样让程序运行的时: 最小话时不显示在任务栏 而只显示在系统栏,也就是象QQ那样,最小话时只显示在右下角?? 然后点图标右键显示某些功能?? 谢谢 有例子更好!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chenquan
2003-08-20
打赏
举报
回复
//制作托盘
unit tp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls,ShellApi, Menus, StdCtrls;
const
ICON_ID = 1;
My_ICONEVENT = WM_USER + 1;
type
TMyTest = class(TForm)
Image1: TImage;
pop1: TPopupMenu;
showform: TMenuItem;
N1: TMenuItem;
Memo1: TMemo;
Button1: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure showformClick(Sender: TObject);
private
procedure InitIcon;
procedure UnInstallIcon;
procedure IConOnclick(var Myss:TMessage);message My_ICONEVENT;
procedure WMSysCommand(var Sysss: TWMSysCommand);message WM_SYSCOMMAND;
public
end;
var
MyTest: TMyTest;
implementation
{$R *.dfm}
procedure TMyTest.WMSysCommand(var Sysss: TWMSysCommand); //拦截系统消息
begin
with Sysss do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) or (CmdType and $FFF0 = SC_CLOSE) then
begin
ShowWindow(MyTest.Handle,SW_HIDE);
Exit;
end;
inherited;
end;
end;
procedure TMyTest.ICononclick(var Myss:TMessage);
var p: TPoint;
begin
if (Myss.lParam = WM_RBUTTONDOWN) or (Myss.lParam = WM_LBUTTONDBLCLK) then
begin
GetCursorPos(p);
pop1.Popup(p.x,p.y);
end;
end;
procedure TMyTest.InitIcon;
Var MyNotify:TNotifyIconData;
begin
MyNotify.cbSize:=Sizeof(MyNotify);
MyNotify.Wnd:=handle;
MyNotify.uID := ICON_ID;
MyNotify.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
MyNotify.uCallbackMessage:=My_ICONEVENT;
MyNotify.hIcon :=Image1.Picture.Icon.Handle;
MyNotify.szTip :='MyTest';
Shell_NotifyIcon(NIM_ADD,@MyNotify);
end;
procedure TMyTest.FormCreate(Sender: TObject);
begin
InitIcon;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
//设置应用程序状态栏目不显示
end;
procedure TMyTest.N1Click(Sender: TObject);
begin
close;
end;
procedure TMyTest.UnInstallIcon; //卸载图标
var IconData: TNotifyIconData;
begin
IconData.cbSize := SizeOf(IconData);
IconData.Wnd := Handle;
IconData.uID := ICON_ID;
Shell_NotifyIcon(NIM_DELETE,@IconData);
end;
procedure TMyTest.FormDestroy(Sender: TObject);
begin
UnInstallIcon;
end;
procedure TMyTest.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
ShowWindow(MyTest.Handle,SW_HIDE);
end;
procedure TMyTest.showformClick(Sender: TObject);
begin
ShowWindow(MyTest.Handle,SW_SHOWNORMAL);
SetForegroundWindow(application.handle);//激活应用程序为前台,此处可以省掉
end;
end.
使应用程序在状态拦上不显示,只显示主窗体.
postmessage(application.handle,GWL_EXSTYLE,WA_EX_TOOLWINDOW)
或
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
Android 9.0
显示
系统
导航
栏
(左/右/底部)
Android 9.0
显示
系统
导航
栏
(左/右/底部)
显示
系统
导航
栏
一般有:HOME BACK 最近应用列表 等组成。 先看下效果图:
显示
在底部(最常见的做法):
显示
在右边(平板): (请忽略导航
栏
上的按钮重叠在一起的
问题
:该部分需要到SystemUI中修改,这里不做说明)
显示
在左边(车机等物联网设备): 实现导航
栏
显示
的位置: 1.需要修改配置文件 2.修改导航
栏
的大小(横-高/竖-宽) 源码路径: /android9.0/framew...
win10
系统
下部分软件主界面
显示
不正常(工具
栏
显示
太小)
问题
解决办法
Win10尝鲜,发现操作与win7有较大的不同,一时还适应不好,其中由一个
问题
是win10下有些程序主界面工具图标
显示
不正常,工具
栏
太小影响到软件的正常使用,如下图: 解决办法: (1)选中
显示
不正常的程序图标,鼠标右键选择【属性】按钮; (2)选中标签【兼容性】,勾选“替代高DPI缩放行为”,在下拉选项中选择【
系统
】,最后点击【确定】; (3)
win7
系统
扩展双屏幕时,如何在两个屏幕下都
显示
任务
栏
win7
系统
本身无法设置该功能(目前我是不知道哦,知道的告诉我撒) 但可以下载第三方软件来解决该
问题
-- 百度: 第一步:Dual Monitor Taskbar 下载软件 第二部:安装完在扩展屏幕上便会出现任务
栏
第三步:在扩展屏下任务
栏
中右击属性来设置相关的功能。 比如
显示
Windows按键 这样便解决了两个屏幕双任务
栏
的功能了。
Android动态控制状态
栏
以及
系统
导航
栏
显示
和隐藏
其实说到沉浸式状态
栏
这个名字我也是感到很无奈,真不知道这种叫法是谁先发起的。因为Android官方从来没有给出过沉浸式状态
栏
这样的命名,只有沉浸式模式(Immersive Mode)这种说法。而有些人在没有完全了解清楚沉浸模式到底是什么东西的情况下,就张冠李戴地认为一些
系统
提供的状态
栏
操作就是沉浸式的,并且还起了一个沉浸式状态
栏
的名字。 比如之前就有一个QQ群友问过我,像饿了么这样的沉浸式状
android
系统
状态
栏
的隐藏和
显示
今天,简单讲讲android如何控制
系统
状态
栏
的隐藏和
显示
。 昨天遇到这个
问题
,找了好久资料才解决,这里记录一下。 网上流传着很多种做法。比如: 1、在AndroidManifest.xml文件中修改theme为android:theme=”@android:style/Theme.NoTitleBar.Fullscreen” 2、在setContentV
Windows SDK/API
1,183
社区成员
22,335
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章