Et meget let Spørgsmål vedr. TUpdown komponenten

Kan du ikke bruge en TSpinButton i stedet ? Den ligger uder Samples.

var
  SpinValue: Real;
  Increment: Real;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpinValue := 0;
  Increment := 0.01;
end;

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
  SpinValue := SpinValue - Increment;
  Label1.Caption := FloatToStr(SpinValue);
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
  SpinValue := SpinValue + Increment;
  Label1.Caption := FloatToStr(SpinValue);
end;

Snowball

Snowball: Jo muligvis, men leder mere efter end udvidet version af tupdown:::

Prøv med denne så: http://www.torry.net/vcl/buttons/other/extupdo.zip

TExtUpDown v.0.9  FWS 6 Kb 24 Jun 2002
By Florian Albrecht. This component is a descendant of TUpDown, extending it by the ability to hold fractal values (doubles and so on). You can also specify a text which is displayed next to the value in the associated edit box (e. g. '$' for an edit text like '12.34 $'). 

Snowball

Snowball: Sjovt du lige nævner den. Har lige hentet den, men kan ikke rigtig få den til at fungere...Siger den mangler en fil, hmmm...

Virker fint hos mig.

Prøv følgende:

1) kopier ExtUpDown.dcr og ExtUpDown.pas ind i din Delphi\lib folder
2) åben Delphi og vælg Component -> Install component
3) browse dig frem til ExtUpDown.pas
4) klik på Ok
5) Svar ja til at kompilere

Sådan gjorde jeg, og det virker hos mig.

Snowball

Snowball: Det har jeg lige prøvet, men når jeg trykker på run får jeg følgende fejl: [Fatal Error] Unit1.pas(7): File not found: 'DsgnIntf.dcu'. Jeg bruger delphi 5, kan det have noget med det at gør

Snowball: Jeg har fundet ud af det...http://www.delphifaq.com/fq/q4060.shtml. Men skriv evt. et svar så får du lidt sne :-)

Let it snow, let it snow, let it snow ;)

Snowball