TValueListEditor - 如何验证输入？

Question

我有一个 TValueListEditor 并且想要验证输入。例如，将所有空格替换为下划线。

怎么做呢？我认为 OnSetEditText 可能不错，但我无法更改那里的值。

Answer 1

这似乎对我有用

procedure TForm1.ValueListEditor1GetEditText(Sender: TObject; ACol,
  ARow: Integer; var Value: string);
begin
  CurrentRow := ARow;
end;

procedure TForm1.ValueListEditor1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if CurrentRow <> 3 then Exit;

  if Key = 32 then Key := 0;
end;