Delphi firemonkey TButton带有单击鼠标左键的下拉菜单？

Question

I need to have dropdown menus on TButton, when the button is clicked with the left mouse button.

I use the following code in the button's onClick event:

procedure TForm1.button1Click(Sender: TObject);
var
    pt:TPointF;
begin
    pt.X:=0;
    pt.Y:=button1.Height;
    pt:=button1.LocalToAbsolute(pt);
    pt:=ClientToScreen(pt);
    popupmenu1.Popup(pt.X,pt.y);
end;

This works fine with Windows as target platform, it also works on OSX, but when I click the button fast a couple of times, it crash on OSX (not so on Windows, there's no issue).

What am I doing wrong???

Answer 1

一定是10.1 Update 2中的错误。我刚刚安装了Delphi 10.2 Tokyo，它可以工作。