TStringGrid隐藏列

Question

procedure TFormMain.CaseListMyShares(uri: String);
var
  i: Integer;
begin
  myShares := obAkasShareApiAdapter.UserShares(uri);
  MySharesGrid.RowCount:= Length(myShares) +1;
  MySharesGrid.AddCheckBoxColumn(0, false);
  MySharesGrid.AutoFitColumns;

  for i := 0 to Length(myShares) -1 do
  begin
    MySharesGrid.Cells[1, i+1]:= myShares[i].patientCase;
    MySharesGrid.Cells[2, i+1]:= myShares[i].sharedUser;
    MySharesGrid.Cells[3, i+1]:= myShares[i].creationDate;
    MySharesGrid.Cells[4, i+1]:= statusText[StrToInt(myShares[i].situation) -1];
  end;
end;

我想为自己创造一个看不见的列。我必须知道行的标识符，才能使用REST进行一些操作。但是最终用户不需要在表上看到这个标识符。如何创建一个不可见的列？

myShares[i].identifier，我想把它藏在每一行。这有可能吗？用标签什么的？

Answer 1

要分配标识符，请执行以下操作：

MySharesGrid.Objects[0, i+1] := TObject(myShares[i].identifier)

访问标识符(例如OnClick)：

Integer(MySharesGrid.Objects[0, MySharesGrid.Row])

Answer 2

要回答这个问题，请将其ColWidths指定为-1，这样：

StringGrid1.ColWidths[4] := -1;

您可以通过将其设置为正值来再次显示它。

这不是使用StringGrid来存储数据，而是让用户界面显示/隐藏列，就像标题中的折叠快捷键，以及相应的Show按钮来恢复它。