Validar en TValueListEditor

[ecfisa]

Hola.

Una posibilidad es aprovechar el evento OnKeyPressed del TValueListEditor, por ejemplo:

Código Delphi [-]
procedure TForm1.ValueListEditor1KeyPress(Sender: TObject; var Key: Char);
var
  ve : TValueListEditor;
begin
  ve := TValueListEditor(Sender);

  if (Key = #13) and not TryStringToColor(ve.Cells[2, ve.Row]) then
  begin
    ShowMessage('Color no válido');
    ve.Cells[2, ve.Row] := PrevValues[ve.Row-1];
  end;
end;

Saludos