---

Hej
Jeg har et problem med SpinEdit, som her er navngivet serRadius.
SpinEdit starter hele tiden med trin 2. Hvor ønsket var 1.

Dvs. 20,30, 40 osv.
Hvor der skulle startes med: 10, 20, 30 40 osv.

Komponent SpinEdit, serRadius er sat med følgende værdier:

serRadius.Increment:=10;
serRadius.MaxLength:=100;
serRadius.MaxValue:=100;
serRadius.MinValue:=10;

Har du en løsning på dette problem

Her følger coden hvor serRadius optræder.

procedure TForm1.serRadiusChange(Sender: TObject);
Var
Rkonstant,Radius:Real;
begin

radius:=5000;
Rkonstant:= (serRadius.Value/100)*radius;;

Memo1.Lines.Add('Rkonstant r/R: '+ FormatFloat('#0',Rkonstant));

Listbox1.Items.Add(FormatFloat('#0',serRadius.Value));

end;

MVH
Monie

---

Du mangler muligvis at sætte værdien serRadius.Value til 10.

Hilsen Peter Vrist

"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d6a2ed4$0$53653$edfadb0f@dspool01.news.tele.dk...
> Hej
> Jeg har et problem med SpinEdit, som her er navngivet serRadius.
> SpinEdit starter hele tiden med trin 2. Hvor ønsket var 1.
>
> Dvs. 20,30, 40 osv.
> Hvor der skulle startes med: 10, 20, 30 40 osv.
>
> Komponent SpinEdit, serRadius er sat med følgende værdier:
>
> serRadius.Increment:=10;
> serRadius.MaxLength:=100;
> serRadius.MaxValue:=100;
> serRadius.MinValue:=10;
>
> Har du en løsning på dette problem
>
> Her følger coden hvor serRadius optræder.
>
> procedure TForm1.serRadiusChange(Sender: TObject);
> Var
> Rkonstant,Radius:Real;
> begin
>
> radius:=5000;
> Rkonstant:= (serRadius.Value/100)*radius;;
>
> Memo1.Lines.Add('Rkonstant r/R: '+ FormatFloat('#0',Rkonstant));
>
> Listbox1.Items.Add(FormatFloat('#0',serRadius.Value));
>
> end;
>
> MVH
> Monie
>
>
>