社区
Delphi
帖子详情
Winamp3 是怎样重载系统菜单的
iriscat
2001-11-29 09:01:26
Winamp3 是怎样重载系统菜单的,它的系统菜单是自己写的
屏蔽了任务栏上的系统菜单,这是怎样做的!!!!
我问过几次了,好像csdn上没人会的呀
msdn上面也没有
...全文
70
4
打赏
收藏
举报
写回复
4 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cqwty
2002-01-06
楼上的说法不错,我这儿有一个完整的程序,可以运行的,代码如下!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure wmSysCommand(var msg:TMessage); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
var
Form1: TForm1;
const
ID_ABOUT = WM_USER+1;
ID_HELP = WM_USER+2;
ID_NEWLINE = WM_USER+4;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
SysMenu:THandle;
begin
SysMenu := GetSystemMenu(Handle,False);
InsertMenu(SysMenu,Word(-1),MF_SEPARATOR,ID_NEWLINE,'');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_HELP, '帮助');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_ABOUT, '关于...');
end;
///下面部分是响应相应的菜单的事件的!
procedure TForm1.wmSysCommand;
begin
case Msg.wParam of
ID_ABOUT : ShowMessage('想知道什么?');
ID_HELP : ShowMessage('不会不懂吧,确实有点难度的!');
end;
inherited;
end;
end.
打赏
举报
回复
赞
taxi
2001-11-29
procedure TForm1.FormCreate(Sender: TObject);
var
hSysMenu: integer;
begin
hSysMenu := GetSystemMenu(Application.Handle, false);
DeleteMenu(hSysMenu, 3, MF_BYPOSITION);
DeleteMenu(hSysMenu, 2, MF_BYPOSITION);
DeleteMenu(hSysMenu, 1, MF_BYPOSITION);
DeleteMenu(hSysMenu, 0, MF_BYPOSITION);
InsertMenu(hSysMenu, 0, MF_BYPOSITION, SC_ABOUT, Pchar('About')); //如何响应该菜单俺不懂
end;
打赏
举报
回复
赞
知足常乐
2001-11-29
~up一下
打赏
举报
回复
赞
Linux2001
2001-11-29
是左下脚的开始菜单屏遮吗
打赏
举报
回复
赞
相关推荐
我绝望了, csdn 上没有高手
Win
amp
3
是怎样
重载
系统
菜单
的,它的
系统
菜单
是自己写的 屏蔽了任务栏上的
系统
菜单
,这是怎样做的!!!! 我问过几次了,好像csdn上没人会的呀 msdn上面也没有
C# 仿XP
系统
的任务栏
菜单
摘要:C#源码,
菜单
窗体,仿XP,任务栏
菜单
仿XP
系统
的任务栏
菜单
——C# 仿XP
系统
右侧的任务栏
菜单
,资源管理器
菜单
,用在一些C#的信息管理
系统
中相当精彩,左侧的
菜单
是可以折叠或展开的,和
Win
dows XP的
菜单
几乎是一个风格。源码编译截图看一下就明白了。
没有
系统
菜单
的程序,如何在用户点击任务栏上的图标时弹出
菜单
(自定义的)?
我知道任务栏上弹出的
菜单
和
系统
菜单
是一样,没有
系统
菜单
应该也就没有了任务栏上的
菜单
,我想应该是自己响应消息,弹出自己定义的
菜单
,可是不知道是什么消息。
菜单
比方说,在资源管理器,任选中一个文件,右键单击,会弹出一个
菜单
. 我听一位大佬说这个
菜单
是
系统
定制的, 我想问的是,怎么样才能调用这个
菜单
呢? 可能是MSDN版本的原因,找了很久也没有找到.
excel 200
3
添加自定义
菜单
请问,excel不使用宏添加自定义
菜单
是如何做到的?比如我安装了adobe reader professional 后,excel就增加了一项
菜单
Adobe PDF 。好像也没有使用宏,我的宏安全性设为‘高’,这
菜单
也可以使用。请问这样的自定义
菜单
改如何做?
发帖
Delphi
微信扫一扫
点击复制链接
分享社区
5124
社区成员
26.2w+
社区内容
Delphi 开发及应用
社区管理员
加入社区
帖子事件
创建了帖子
2001-11-29 09:01
社区公告
暂无公告