Popup Menu Not Working

[SONFEDAI]

Popup menu does not working..

If any popup menu item clicked program finished abnormally...

Note: Testing PocketPC2003 emulaytor and Windows Mobile 6.5 Prof. Emulator as same problem...

[SONFEDAI]

If clicked item is first item program finished abnormally otherwise run normal.

[felipemdc]

Lazarus version? Free Pascal version? Which popup exactly? Screenshots? Code?

[SONFEDAI]

Lazarus: 0.9.3.1
Date: 2011-11-05
FPC: 2.5.1
SVN Ver.: 29060

procedure ShowPopupMenu(Btn: TBGRAButton);
Var
  X, Y: Integer;
Begin
  if Assigned(Btn.PopupMenu) Then
  Begin
    X:= Btn.Left;
    Y:= Btn.Top + Btn.Height;
    Btn.PopupMenu.PopUp(X, Y);
  end;
end;

Thanks

[felipemdc]

Please open a bug report in the bug tracker including all this info.

[SONFEDAI]

Solved...

* Add a template item and make it is first item

* Change first item visibility to FALSE

That's all