MaskEdit gibt Kontrolle nicht her

[messie]

Nö, deshalb habe ich es auch nicht verstanden. Es wird ne Exception mit Fehlermeldung ausgelöst, die ich so entsorgen wollte.

Delphi-Quellcode:

procedure TTntMaskEdit.ValidateEdit;
var
  Str: WideString;
  Pos: Integer;
begin
  Str := EditText;
  if IsMasked and Modified then
  begin
    if not ValidateW(Str, Pos) then
    begin
      if not (csDesigning in ComponentState) then
      begin
        Include(FMaskState, msReEnter);
        SetFocus;
      end;
      SetCursor(Pos);
      ValidateError;
    end;
  end;

end;

Könnte vielleicht am SetFocus hängen. Die Exception im ValidateError scheint den Focus ja zu entfernen. Vielleicht gibt es da eine Alternative, mit der ich dasselbe erreiche.

Grüße, Messie