蒙版仅在双击时出现

时间:2019-01-25 15:37:55

标签: delphi

我需要在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;

1 个答案:

答案 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;