Vice vs. mene

[Jarek]

Jak se da zjistit u SpinEditu v udalosti OnChange, jestli se cislo zmensilo nebo zvetsilo?

[mark_freeman]

zkus se podivat jestli nema funkci up a down aa takhle by to melo jit zjistit

[Jonáš Pospíchal]

No, přes OnChange jsem nic nevymyslel, ale zkus tohle.
Zdravím.

[Jarek]

Dekuji za ochotu pomoci mi, ale ja bych to potreboval nejlepe nejakou spravou, nebo funkci.Popr. pouzit neco jineho nez OnChange, ale pouzit muzu pouze SpinEdit.

[greybeard]

Vyzkousel jsem toto:

procedure TForm1.FormCreate(Sender: TObject);
begin
   SpinEdit1.Button.OnDownClick:=Dn;
   SpinEdit1.Button.OnUpClick:=Up;
end;

procedure TForm1.Up(Sender: TObject);
begin
   Form1.Caption:='up';
end;

procedure TForm1.Dn(Sender: TObject);
begin
   Form1.Caption:='down';
end;

a dále se fantazii meze nekladou ...

Vlastík

[Jarek]

Zrejme dobry napad, ale potom se nepricita do pole hodnota.

[Drizbach]

co takhle toto:

Kód: [Vybrat]

[b]
      procedure Form1.SpinEdit1Change(Sender: TObject);
      begin
        if SpinEdit1.Value > SpinEdit1.Tag then
        begin
          // Cislo Se zvetsilo
        end
        else if SpinEdit1.Value < SpinEdit1.Tag then
        begin
          // Cislo Se zmensilo
        end;
        SpinEdit1.Tag := SpinEdit1.Value;
      end;
[/b]

Nezapomen ve FormCreate nastavit SpinEdit1.Tag := SpinEdit1.Value;

[Jarek]

Ano, to je presne ono, diky.