Forum Delphi.cz

Delphi => Archiv => Téma založeno: Jarek 17-04-2005, 20:27:00

Název: Vice vs. mene
Přispěvatel: Jarek 17-04-2005, 20:27:00
Jak se da zjistit u SpinEditu v udalosti OnChange, jestli se cislo zmensilo nebo zvetsilo?
Název: Vice vs. mene
Přispěvatel: mark_freeman 17-04-2005, 20:33:00
zkus se podivat jestli nema funkci up a down aa takhle by to melo jit zjistit
Název: Vice vs. mene
Přispěvatel: Jonáš Pospíchal 17-04-2005, 20:56:00
No, přes OnChange jsem nic nevymyslel, ale zkus tohle.
Zdravím.
Název: Vice vs. mene
Přispěvatel: Jarek 17-04-2005, 21:18:00
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.
Název: Vice vs. mene
Přispěvatel: greybeard 17-04-2005, 22:19:00
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

Název: Vice vs. mene
Přispěvatel: Jarek 17-04-2005, 22:39:00
Zrejme dobry napad, ale potom se nepricita do pole hodnota.
Název: Vice vs. mene
Přispěvatel: Drizbach 18-04-2005, 09:47:00
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;
Název: Vice vs. mene
Přispěvatel: Jarek 18-04-2005, 10:50:00
Ano, to je presne ono, diky.