左クリックでドロップダウンメニュー付きのDelphi firemonkey TButton？

ボタンをマウスの左ボタンでクリックすると、TButtonにドロップダウンメニューが必要です。左クリックでドロップダウンメニュー付きのDelphi firemonkey TButton？

私は、ボタンのonClickイベントに次のコードを使用します。

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;

これは、ターゲット・プラットフォームとしてのWindowsで正常に動作し、それはまた、OSX上で動作しますが、私は、ボタンを数回高速クリックすると、それはOSXでクラッシュする（そうでないWindowsでは問題ありません）。

私は間違って何をしていますか？

出典

2017-03-22 Softtouch

どのバージョンのDelphiを使用していますか？どのようなクラッシュは正確ですか？より具体的にしてください。 FireMonkeyのバグのように聞こえますが、あなたは[Embarcaderoに報告してください]（http://quality.embarcadero.com）ですか？ –

私はまだ私が何か間違っていると確信していないので、私はそれを報告しなかった。 Macでは、アドレス00000051にアクセスするアクセス違反がポップアップします。私はDelphi 10.1 Update 2を使用しています。 – Softtouch

0の近くの低いアドレスのAVは、nilポインタがアクセスされていることを意味します。 –

10.1アップデート2のバグだった必要があります。私はDelphi 10.2 Tokyoをインストールしたばかりで、動作します。

出典

2017-03-23 10:25:39 Softtouch

左クリックでドロップダウンメニュー付きのDelphi firemonkey TButton？

答えて

関連する問題