SpinEdit für ' ' Wert zuordnen

[user0815]

so geht das doch oder

Delphi-Quellcode:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Caption := IntToStr(TSpinEdit(Sender).Value);
end;

procedure TForm1.SpinEdit1Exit(Sender: TObject);
begin
  if length(TSpinEdit(Sender).Text) = 0 then TSpinEdit(Sender).Value := 12;
end;