如何将TGrid的'selected'属性设置为-1

Question

我正在使用FMX.Grid.TGrid ，用户可以在其中选择完整的行。 在某些情况下，我想重置此选择。 如果我使用grid.selected = -1或grid.selectRow(-1)进行选择，则选择将从网格中删除，但grid.selected设置为“ 0”（在TCustomGrid.SelectCell ），这是第一行。

如何重置选择，以便grid.selected属性为“ -1”？

Answer 1

我检查了FMX库的代码，并做了微小的类帮助程序，该程序使您可以直接访问作为选定行存储值的私有属性。 在Delphi XE8上测试。 即使您启用了“ AlwaysShowSelection”选项，此代码也将正常工作。

  TMyG = class helper for TCustomGrid
  public
    procedure DoSomethingStrange;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.btnReadSelectionClick(Sender: TObject);
begin
  Caption := Grid1.Selected.ToString;
end;

procedure TForm1.btnResetSelectionClick(Sender: TObject);
begin
  Grid1.DoSomethingStrange;
end;

{ TMyG }

procedure TMyG.DoSomethingStrange;
begin
  Self.FSelected := -1;
  Self.UpdateSelection;
end;

Answer 2

如果您的目的不是在网格中显示选定的行，则可以通过将焦点放在另一个组件上来使其散焦。