Fokus bleibt bei TUpDown hängen

[Helmi]

Hallo,

ich kann das Verhalten mit deinem Code unter XE2 nachvollziehen.

Aber eigentlich willst du ja nur den Inhalt des Edits formatieren.

Dazu hätt ich folgenden Code, der in Verbindung mit TUpDown funktioniert:

Einfach im OnChange des Edits folgendes einbauen:

Delphi-Quellcode:

procedure TForm3.Edit1Change(Sender: TObject);
var
  i: Integer;
  Temp: TNotifyEvent;

begin
  Temp := Edit1.OnChange;
  Edit1.OnChange := nil;

  If TryStrToInt(Edit1.Text, i) then
    begin
      Edit1.Text := Format('%.7d', [i]);
    end;

  Edit1.OnChange := Temp;
end;

Und deinen Code aus dem UpDown1ChangingEx komplett entfernen!