Delphi XE8 firemonkey移动应用程序中的StringGrid问题

Question

我正在使用Delphi XE8开发移动应用程序，并且在TStringGrid中遇到了一些问题。

1. 我在StringGridSelectCell事件中编写了以下代码。

Showmessage（StringGrid.Cells [0，ARow]）;

并在第一时间显示所选行的正确值。 但是，当我尝试再次单击选定的行时，不会触发此事件。 我无法取消选择特定的行。

2. 因此，我试图在OnClick事件中编写此消息。

   var iRowInd：整数； 开始iRowInd：= StringGrid1.Selected; ShowMessage（StringGrid.Cells [0，iRowInd]）; 结束;

这在第一次单击时不起作用，而在我第二次单击时，它可以正常工作。 此问题仅在android mobile中存在，而在Windows中不存在。

3. 后来，我既保留了事件代码，又遇到了另一个问题。 当我滚动网格时，它会触发onClick事件。 因此，它将显示先前选择的行值。

请给我一些解决方案。 并在此先感谢。

Answer 1

让我们通过OnClick事件来做到这一点：

procedure TfmMain.StringGrid1Click(Sender: TObject);
begin
  Caption := 'Selected ROW ID: ' + StringGrid1.Selected.ToString + '. Selected COLUMN ID: ' + StringGrid1.ColumnIndex.ToString + '. Action at: ' + DateTimeToStr(Now);
end;

属性TStringGrid.Selected将返回ROW ID（从零开始）

和

属性TStringGrid.ColumnIndex将返回COLUMN ID（从零开始）

Answer 2

到目前为止，我已经在表单中使用了“ 材料设计 ”。 首先，用户需要选择网格。 然后，用户需要单击该按钮，然后继续进行逻辑操作。 这样就形成了良好的应用程序GUI，并使其功能也适当。