Delphi FMX Listbox 右键选中项目

摘要： 最近在写一个工具 开始是没有界面的程序 我可能也只会写没有UI的了吧?本来是打算用wx写的 写了个开头我就想吐了 不像以前的小工具几个按钮 编辑框什么的就好了好吧 换Delphi...

最近在写一个工具 开始是没有界面的程序 我可能也只会写没有UI的了吧?

本来是打算用wx写的 写了个开头我就想吐了 不像以前的小工具几个按钮 编辑框什么的就好了

好吧 换Delphi 毕竟拖拉拉吗 也熟悉吗 因为要在linux用的所以就用了fmx

咦 listbox右键 在vcl下有的控件比如 rz 设置下就好了 原始的 继承下消息处理处理下就好了

我日 在fmx怎么弄不知道i哦  不熟悉呀 网上翻翻 也找不到好方法

后来自己这个.....的点了几下看属性和事件 最后 简单的实现下 我不知道是不是有更好的办法 如果有麻烦告知哈

我的处理如下

procedure TMainForm.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
  begin
     var Item:= ListBox.ItemByPoint(X,y);
     if Assigned(Item) then
     begin
       TListBox(Sender).ClearSelection;
       Item.IsSelected:= True;
     end;
  end;
end;

好吧就这样吧 先