PopupMenu的问题

Question

最好希望有源代码写出来,谢谢!

Answer 1

20分太少了。所谓动态即在程序中用语句来改变一些值。

Answer 2

我明白是用改变,可是怎么改变阿?问题解决后分数好说!

Answer 3

不会的近来给提前一下也行啊

Answer 4

既然你都這么說了，那就幫你頂一下吧

Answer 5

谢谢,有钱捧个钱场,没钱的捧个人场,大家给带你面子,关照一下阿

Answer 6

有钱帮你捧个钱场，没钱帮你捧个人场！都没有，算了，帮你up一下吧！

Answer 7

老兄不会是想做书签吧？这点分一般没人来啊。问题不难，自己写吧！

Answer 8

明白你意思，本人没有这样的代码，帮助你up************
* 努力学习 *
*   全为   *
*￥人民币￥*
************

Answer 9

兄弟，还没有答案？算了，再帮你UP！

Answer 10

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    PopupMenu1: TPopupMenu;
    jljkl1: TMenuItem;
    Edit2: TEdit;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure myclick(Sender: TObject);
  public
    { Public declarations }
    procedure additems ;
  end;var
  Form1: TForm1;
     list : TStrings ;
implementation{$R *.DFM}procedure TForm1.additems;
var     i : Integer ;
     items : TMenuItem ;
begin
   PopupMenu1.items.Clear ;
   for I := 0 to list.count-1 do
   begin
        items := TMenuItem.Create (PopupMenu1) ;
        items.Caption := list[i];
        items.tag := i ;
        items.OnClick := myclick ;
        PopupMenu1.Items.Add (items);   end ;
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
    p : Tpoint ;
begin
  if  ssRight in shift then
   begin
      additems ;
      GetCursorPos(p);
      PopupMenu1.Popup (p.x,p.y)
   end ;
end;procedure TForm1.myclick(Sender: TObject);
begin
    with sender as TMenuItem do
    begin
     edit1.Text := list[tag];
     edit2.text := caption ;
    end ;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
   list := Tstringlist.Create ;
   list.LoadFromFile ('c:\temp.txt');end;procedure TForm1.FormDestroy(Sender: TObject);
begin
   list.free;
end;end.
以上的代码对你可能有帮助。你要做的就是将连接一一对应而已