<div dir="ltr">Hello,<div><br></div><div><div>Wrong number parameters specified for call to "MyPopup" </div><div></div><div><br></div><div>This example works in Delphi but not in Lazarus, what are parameters ?</div><div><br></div><div>procedure TForm1.Button1Click(Sender: TObject);<br></div><div><div>var</div><div>  MyItem,MySubItem1: TMenuItem;</div><div>  Num: Integer;</div><div>begin</div><div>  Inc(Num);</div><div>  MyItem:=TMenuItem.Create(Self);</div><div>  MySubItem1:=TMenuItem.Create(Self);</div><div><br></div><div>  MyItem.Caption:='Hello'+IntToStr(Num);</div><div>  MySubItem1.Caption:='Good Bye'+IntToStr(Num);</div><div><br></div><div>  MainMenu1.Items.Add(MyItem);</div><div>  MainMenu1.Items[0].Insert(num-1,MySubItem1);</div><div><br></div><div>  MyItem.OnClick:=MyPopUp;</div><div>  MySubItem1.OnClick:=MyPopUp;</div><div>end;</div><div><br></div><div>procedure TForm1.MyPopup(Sender: TObject);</div><div>begin</div><div>  with Sender as TMenuItem do ShowMessage(Caption);</div><div>end;</div><div><br></div><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">Binho<br><br></div></div>
</div></div></div>