我需要在StringGrid中键入的每个值都以百分比形式保留。
示例:如果我键入60,我希望它显示为60,0%。
我尝试了以下方法,但是它不起作用……仅当我键入,退出并再次双击该单元格时它才会出现..(我也需要它仅接受数字)
procedure TfrmConfiguraClassificacao.listaFaixasGetEditMask(Sender: TObject;
ACol, ARow: Integer; var Value: string);
begin
if (ACol = 0) or (Acol = 1) then
begin
if listaFaixas.Cells[Acol, ARow] <> '' then
Value := '99,9%';
end;
end;
答案 0 :(得分:1)
在单元格中键入描述您所看到的症状的内容之前,请不要设置面罩。相反,您应该始终仅根据行/列而不是根据内容设置遮罩:
procedure TfrmConfiguraClassificacao.listaFaixasGetEditMask(Sender: TObject;
ACol, ARow: Integer; var Value: string);
begin
if (ACol = 0) or (Acol = 1) then
begin
Value := '99,9%';
end;
end;