我有一组Edit与一个PopupMenu关联，我怎样知道是右击了哪个Edit弹出的PopupMenu

[rlbo]

我的问题与这个相似http://topic.csdn.net/t/20030802/18/2101889.html，但是不知道怎么写语句。还有更好的办法吗？

[hongqi162]

也就是在菜单的onclick事件中获得PopupComponent组件的name就是edit的name属性

[SuperTitan001]

showmessage(((sender as TPopupMenu).PopupComponent as Tedit).Name)

[rlbo]

[Quote=引用 2 楼 hongqi162 的回复:]
也就是在菜单的onclick事件中获得PopupComponent组件的name就是edit的name属性
[/Quote]

PopupMenu1中没有onclick事件？

[SuperTitan001]

月亮的程序是放在popupmenu的选项的onclick事件中的
我的那段是放在popupmenu的onpopup事件中的

[hongqi162]

TMenuItem不就有了么

[rlbo]

问题补充：我有一组Edit与一个PopupMenu关联，我怎样知道是右击了哪个Edit弹出的PopupMenu。应该是我怎么在每一个edit中显示我选择的PopupMenu不同内容？

[SuperTitan001]

我怎么在每一个edit中显示我选择的PopupMenu不同内容？

//是要显示选择了哪项吗？

[rlbo]

//是要显示选择了哪项吗？

是的，非常感谢！

[hongqi162]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    PopupMenu1: TPopupMenu;
    procedure PopupMenu1Popup(Sender: TObject);
  private
    { Private declarations }
    procedure menuItemClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.menuItemClick(Sender: TObject);
begin
  showmessage(self.PopupMenu1.PopupComponent.Name);
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  item: TMenuItem;
begin
  self.PopupMenu1.Items.Clear;
  item:= TMenuItem.Create(Owner);
  item.Caption:=self.PopupMenu1.PopupComponent.Name;
  item.OnClick:= menuItemClick;
  PopupMenu1.Items.Add(item);
end;

end.

[SuperTitan001]

把所有的onclick指向同一个事件
然后在事件中
showmessage((sender as tmenuitem).Caption)
sender as tmenuitem就表示你选择的项

[rlbo]

不好意思，还是没实现。hongqi162(失踪的月亮) 第10楼的程序，点右键出现的是Edit1，EDit2，Edit3.不能改写Edit中的内容啊？

SuperTitan001请写具体代码行吗？谢谢！

[SuperTitan001]

procedure TForm1.menuItemClick(Sender: TObject);
begin
((self.PopupMenu1.PopupComponent) as tedit).Text:= (sender as tmenuitem).Caption;
end;

[rlbo]

问题补充：我要的功能是：假设PopupMenu1中有a，b，c，d四个选项。我现在如果右键点击edit1，则可以动态在edit1中显示a或b或c或d。

[hongqi162]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    PopupMenu1: TPopupMenu;
    a1: TMenuItem;
    b1: TMenuItem;
    c1: TMenuItem;
    d1: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure menuItemClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.menuItemClick(Sender: TObject);
begin
  TEdit(self.PopupMenu1.PopupComponent).Text:= TMenuItem(sender).Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to self.PopupMenu1.Items.Count-1 do
  begin
    self.PopupMenu1.Items[i].OnClick:=   menuItemClick;
  end;
end;

end.

[rlbo]

[Quote=引用 15 楼 hongqi162 的回复:]
Delphi(Pascal) codeunit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;type
TForm1= class(TForm)
Edit1: TEdit;
¡­
[/Quote]


这个没有办法实现功能。edit1中不能显示我要的a或b

[bdmh]

[Quote=引用 16 楼 rlbo 的回复:]
引用 15 楼 hongqi162 的回复:
这个没有办法实现功能。edit1中不能显示我要的a或b
[/Quote]
什么意思?edit不是已经关联了popmenu了吗
Edit1.Text := Edit1.PopupMenu.Name;还费劲的想得到什么

[rlbo]

什么意思?edit不是已经关联了popmenu了吗
Edit1.Text := Edit1.PopupMenu.Name;还费劲的想得到什么
[/Quote]

就是不能显示Edit1.Text := Edit1.PopupMenu.Name这个内容？我是复制的月亮的程序，应该没问题的吧？

[bdmh]

[Quote=引用 18 楼 rlbo 的回复:]
就是不能显示Edit1.Text := Edit1.PopupMenu.Name这个内容？我是复制的月亮的程序，应该没问题的吧？
[/Quote]
月亮没有写显示在Edit中的代码,当然不显示了,你就用Edit1.PopupMenu.Name不就行了吗

[rlbo]

哎，说不出口啊，本人是刚学delphi和pascal。所以...，请各位谅解。
请给我具体的代码。
能否知道三位的联系方式，我将在合适的时候和您联系。不会是打扰，而是合作一个项目。[e-mail]

[rlbo]

按照月亮的方法完全可以做到，我复制后没有将界面创建链接到程序。惭愧。还是恳请三位发封邮件给我。