DELPHI如何在程序里实现右键菜单?要使用什么控件?以及控件的使用方法,请尽量仔细一点.谢谢大家.(100分)

  • 主题发起人 主题发起人 yanghq
  • 开始时间 开始时间
有一个PopupMenu控件,就在standard里面
 
晚了一步~~~再加一句吧
Standard->PopupMenu
设置你要弹出菜单的控件的popupmenu属性为它就行了
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
a11: TMenuItem;
a21: TMenuItem;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
popupmenu:=PopupMenu1;
end;

end.
 
将Standard中的PopupMenu放到form中,名字叫PopupMenu1,如果你是要在form中点击右键,
则在form属性中的PopupMenu设为PopupMenu1。如果为其他的控件,则将该控件的PopupMenu
设为PopupMenu1即可。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部