TMenuitem.onclick:=??這個怎麼附值？ 請進看代碼.

Question

procedure MenuClick(Sender: TObject);
begin
  ShowMessage('Click MenuItem');
end;
var TempItem:TMenuitem;
begin
TempItem:=TMenuItem.Create(self);
Tempitem.Caption:=inttostr(flag)+'.'+RichEdit1.SelText;
Tempitem.onclik:= MenuClick;
PM_label.Items.Add(Tempitem);
TempItem.Free;
end;

Answer 1

Tempitem.onclick:=Label_find('');procedure Tdiary_Form.Label_find(find_value:string);
beginend;
這樣不行呀，編譯通不過?

Answer 2

genphone_ru(票票) 的不行吗？

Answer 3

9494,好想编译通不过，说　Left side cannot be assigned to

Answer 4

你这样怎么行呢？看看菜单点击的过程声明：
TForm1.asdf2Click(Sender: TObject)
知道错误的地方了吧

Answer 5

你的实现有两个错误：
  1.onclick 的声明是procedure(sender:tobject) of object
  2.onclick赋值时不要带参数  如：onclick=MenuClick;

Answer 6

wwwxuhong说的有道理！就是那个原因

Answer 7

genphone_ru(票票) 的方法是對的，本來我是想傳遞一個變理的，這樣做不行，
結案.