菜单,procedure

qixg 2003-02-15 02:53:49

1.如何获得菜单的"hMenu",如何将用AppendMenu动态建立的菜单加入菜单栏内?
2.在VB中自定义的一个窗体的procedure会接收到哪些参数？是不是窗体中所有的事件都会向该procedure传达？procedure的返回值有什么意义？

...全文

30 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

13161795500 2003-02-15

打赏
举报

回复

up

Delphi在WinForm窗口菜单中添加系统菜单项：　　procedure TForm1.user_sysmenu(var msg: twmmenuselect); 　　begin 　　 if msg.iditem=101 then 　　 showmessage('响应系统菜单!') 　　 else 　　 inherited; //作缺省处理,必须调用这一过程　　end; 　　procedure TForm1.FormCreate(Sender: TObject); 　　 var Imenu:integer; 　　begin 　　 Imenu:=getsystemmenu(handle,false); //获取系统菜单句柄　　 appendmenu(Imenu,MF_SEPARATOR,0,nil); 　　 appendmenu(Imenu,MF_STRING,101,'我的系统菜单'); //加入用户菜单　　end;

Delphi 拖动treeview菜单节点到右侧列表中，如图所示的示例中，拖动节点可以一直到右侧的列表中，松开鼠标后节点会被保存在右侧列表中，很好的实现了树形菜单TreeView节点的拖动功能。　　procedure TForm1.TreeView2DragDrop(Sender, Source: TObject; X, Y: Integer); 　　begin 　　 Node1 := TreeView2.Items.Add(nil,TreeView1.Selected.Text); 　　 Node1.ImageIndex := TreeView1.Selected.ImageIndex; 　　end; 　　procedure TForm1.TreeView2DragOver(Sender, Source: TObject; X, Y: Integer; 　　 State: TDragState; var Accept: Boolean); 　　begin 　　 Accept := True; 　　end;

RPC(Remote Procedure Call)是函数对函数的远程调用，传输协议tcp，http，主要是基于xml，json序列化协议(这里的序列化协议是对数据编解码的方式)，项目中我们真正用到的是grpc，grpc是一个框架，基于http2.0的长...

窗口中的弹出式右键菜单-delphi PopupMenu源码, 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Poin:TPoint; 　　begin 　　 Poin := Point(Button1.Left,Button1.Top Button1.Height); 　　 Poin := ClientToScreen(Poin); 　　 PopupMenu1.Popup(Poin.X,Poin.Y); 　　end;

包目录(MyMMs): 包资源如下: MyMMs.dcu //最终引用 MyMMsPackage.bpl //安装包包安装(无需编译,直接安装): 将目录(MyMMs)复制到目标安装目录 Delphi\菜单\Component\Install Packages\...选择包目录中的包文件 .\MyMMsPackage.bpl 添加路径: Delphi\菜单\Tools\Options\Environment Options\Delphi Optioins\Library\Library path: 添加包目录在工程中单元中引用: uses MyMMs 功能列表: SetMasterVolume(iVol:Integer); //设置主音量(iVol.音量0-100) SetMasterMute(bMute:Boolean); //设置静音(bMute:Ture.静音/False.有音) //创建播放器: Player:TMyPlayer; Player:=TMyPlayer.Create; //播放文件: function TMyPlayer.PlayFile(filename:WideString):Boolean;//直接播放文件 function TMyPlayer.SetFile(filename:WideString):Boolean;//设置播放文件 procedure TMyPlayer.Play;//播放 procedure TMyPlayer.Stop;//停止 procedure TMyPlayer.Close;//关闭 procedure TMyPlayer.Pause;//暂停 procedure TMyPlayer.SetVolume(volume:Integer);//设置音量 procedure TMyPlayer.SetPosition(Position:Integer);//定位播放 function TMyPlayer.GetPosition:Integer;//获取当前位置 procedure TMyPlayer.SetStereo(source: Integer);//设置立体声(0.stereo,1.Left,2.Right,x.average) //释放播放器: if (Assigned(Player)) or (Playernil) then begin Player.Close; FreeAndNil(Player); end;

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章