Hi Seimen,
sorry war wohl zu schnell,
ok, du sagtest du willst die Eingabe durch 1 und 0 verhindern. Das kannst du durch eine Abfrage lösen wie:
Delphi-Quellcode:
if (SpinEdit2.Value <> 1) and (SpinEdit2.Value <> 0) then begin
SpinEdit3.Value := SpinEdit1.Value div SpinEdit2.Value
end;
Die Neu Form kannst du so erzeugen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
meineForm: TForm1;
begin
meineform := TForm1.Create(nil);
meineForm.Show;
end;