Delphi FMX字符串网格单元格不显示复选框

dgsult0t  于 2022-09-21  发布在  其他
关注(0)|答案(1)|浏览(148)

使用Delphi 11.1,该应用程序是FMX(FireMonkey)类型的。我有一个TStringgrid和一个TCheckColumn。网格不会显示该复选框。如果我在单元格上单击两次,状态就会改变,并显示该框,然后它就会正常运行。

我在如下代码中设置了单元格的值

StringGrid1.Cells[CHECKBOX_COLUMN, iIndex]:= BoolToStr(False);

像这样阅读

boMyBoolean := StringGrid1.Cells[CHECKBOX_COLUMN, 0].ToBoolean;

非常感谢您的帮助。

ioekq8ef

ioekq8ef1#

BoolToStr有两个参数:

function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;

如果您使用UseBoolStrs = True调用它,则StringGrid的React与您预期的一样:

例如在FormCreate期间:

procedure TForm5.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 1] := BoolToStr(False, True);
  StringGrid1.Cells[1, 1] := BoolToStr(False, True);
end;

其中第一列是TCheckColumn,第二列是TStringColumn

并对随后的变化做出你所期望的React。

相关问题