|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | SpinEdit trin 10 20 ...100 ? Fra : Monie Jacobsen |
Dato : 26-08-02 14:36 |
|
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
| |
Peter Vrist (26-08-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Peter Vrist |
Dato : 26-08-02 22:00 |
|
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
>
>
>
| |
|
|