TMenuItem这个怎么用？

土豆薯条 2003-10-20 10:54:56
程序里是这样写的：
TMenuItem *NewItem = new TMenuItem;
NewItem->Caption = "-";
PopupMenu1->Items->Add(NewItem);
我编译的时候出现
[C++ Error] Unit1.cpp(21): E2285 Could not find a match for 'TMenuItem::TMenuItem()'
该设置什么？
...全文
83 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccrun.com 2003-10-20
  • 打赏
  • 举报
 回复
应该指定这个MenuItem属于哪个Menu。
lidelu 2003-10-20
  • 打赏
  • 举报
 回复
要有参数
第一行改成
TMenuItem *NewItem = new TMenuItem(this);
就可以了
sczyq 2003-10-20
  • 打赏
  • 举报
 回复
我觉得

TMenuItem *NewItem = new TMenuItem(PopupMenu1);

比较好。
运用delphi编写记事本
运用delphi设计记事本 代码： unit jsb; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; F1: TMenuItem; fw1: TMenuItem; V1: TMenuItem; H1: TMenuItem; N1: TMenuItem; O1: TMenuItem; S1: TMenuItem; N2: TMenuItem; N3: TMenuItem; Q1: TMenuItem; H2: TMenuItem; N4: TMenuItem; A1: TMenuItem; N8: TMenuItem; N9: TMenuItem; F2: TMenuItem; E1: TMenuItem; U1: TMenuItem; N5: TMenuItem; T1: TMenuItem; C1: TMenuItem; P1: TMenuItem; N6: TMenuItem; F3: TMenuItem; F4: TMenuItem; N7: TMenuItem; A2: TMenuItem; L1: TMenuItem; N10: TMenuItem; N11: TMenuItem; D1: TMenuItem; U2: TMenuItem; N12: TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; FontDialog1: TFontDialog; Memo1: TMemo; procedure T1Click(Sender: TObject); procedure C1Click(Sender: TObject); procedure P1Click(Sender: TObject); procedure Q1Click(Sender: TObject); procedure O1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure S1Click(Sender: TObject); procedure F2Click(Sender: TObject); procedure L1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.T1Click(Sender: TObject); begin form1.memo1.cuttoclipboard; end; procedure TForm1.C1Click(Sender: TObject); begin form1.memo1.copytoclipboard; end; procedure TForm1.P1Click(Sender: TObject); begin form1.memo1.pastefromclipboard; end; procedure TForm1.Q1Click(Sender: TObject); begin close; end; procedure TForm1.O1Click(Sender: TObject); begin form1.OpenDialog1.execute; form1.memo1.lines.loadfromfile(form1.OpenDialog1.filename); end; procedure TForm1.N1Click(Sender: TObject); begin form1.memo1.lines.clear; end; procedure TForm1.S1Click(Sender: TObject); begin form1.saveDialog1.execute; form1.memo1.lines.savetofile(form1.saveDialog1.filename); end; procedure TForm1.F2Click(Sender: TObject); begin fontdialog1.Execute; memo1.font:=fontdialog1.Font; end; procedure TForm1.L1Click(Sender: TObject); begin form1.memo1.clearselection; end; end.
简单的记事本程序(简单的 )
简单的记事本程序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ToolWin, ImgList, Menus, BandActn, StdActns, ActnList, ExtActns, ExtCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; ImageList1: TImageList; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton3: TToolButton; ToolButton2: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; StatusBar1: TStatusBar; Memo1: TMemo; ActionList1: TActionList; EditCut1: TEditCut; EditCopy1: TEditCopy; EditPaste1: TEditPaste; EditSelectAll1: TEditSelectAll; EditUndo1: TEditUndo; EditDelete1: TEditDelete; FileNew: TAction; FileOpen: TAction; FileSave: TAction; FileExit: TAction; FormatST: TAction; FormatKT: TAction; FormatLS: TAction; FormatRed: TAction; FormatBlue: TAction; FormatBlack: TAction; CustomizeActionBars1: TCustomizeActionBars; N20: TMenuItem; N21: TMenuItem; R1: TMenuItem; B1: TMenuItem; K1: TMenuItem; N15: TMenuItem; SearchFind1: TSearchFind; SearchReplace1: TSearchReplace; ComboBox1: TComboBox; RichEditUnderline1: TRichEditUnderline; FileOpen1: TFileOpen; mmnBold: TMenuItem; mmnItalic: TMenuItem; mmnUnderline: TMenuItem; procedure FileNewExecute(Sender: TObject); procedure FileOpenExecute(Sender: TObject); procedure FileSaveExecute(Sender: TObject); procedure FileExitExecute(Sender: TObject); procedure FormatSTExecute(Sender: TObject); procedure FormatKTExecute(Sender: TObject); procedure FormatLSExecute(Sender: TObject);
CxGrid右键增强功能源代码
Type TCxGridPool=class GridPopu:TcxGridPopupMenu; GridMenu:TPopupActionBar;//右键菜单 CopyCell:TMenuItem;//复制单元格内容 CopyList:TMenuItem;//复制选中列内容 CopyLine:TMenuItem;//复制选中行内容 PastLine:TMenuItem;//粘贴#9分隔符数据 DerFiles:TMenuItem;//导出文件 StrLooks:TMenuItem;//查找内容[Ctrl+F] AllSelec:TMenuItem;//全选 CxGrid:TCxGrid; DBView:TcxGridTableView; BStyle:Boolean;//是否改变列颜色方案 ...
解决DelphiTMenuItem的Hint属性不能用的单元
此文件是一个单元，主要解决TMenuItem的下拉菜单，也就是PopupMenu的Hint属性不管用的问题。 使用方法：下载此单元文件，然后复制到你的项目中，在需要实现功能的Form中引入此单元。然后在Form的onCreate方法中写 Application.onHint := UnitHint.THintWin.Create(Self).MyAppHint; 便可，因为我是新手，不会封装，只会这样写。如果各位大大可以再封装一下，让每个需要使用这个功能的窗体只引入这个单元文件就可以实现的话还请回发给我一份您修改好的。谢谢！leandzgc@gmail.com或406163956@qq.com谢谢各位大侠。
DELPHI三方控件安装方法
DELPHI三方控件安装方法，其实也很简单
C++ Builder

13,825

社区成员

102,679

社区内容

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章