als übergabe nehme ich einen schiebregler:
Delphi-Quellcode:
procedure TForm1.ScrollNChange(Sender: TObject);
begin
n := -5+10*Form1.ScrollN.Position/100;
FeldN.Text := FloatToStrF(n,ffFixed,6,2);
end;
zum download mal mein programm zum download dran. also wäre klasse, wenn mir irgendwer sagen könnte, wie ich es schaffe.