SpinEdit für ' ' Wert zuordnen

[Popov]

Oder so. Hier wird einfach alles danach markiert. Folgt ein weiterer Tastendruck, wird die 12 überschrieben.

Delphi-Quellcode:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  with Sender as TSpinEdit do
  begin
    if Text = '' then Text := '12';
    SelStart := Length(Text);
    SelectAll;
  end;
end;