Autor Téma: Vice vs. mene  (Přečteno 2440 krát)

Jarek

  • Host
Vice vs. mene
« kdy: 17-04-2005, 20:27:00 »
Jak se da zjistit u SpinEditu v udalosti OnChange, jestli se cislo zmensilo nebo zvetsilo?

mark_freeman

  • Host
Vice vs. mene
« Odpověď #1 kdy: 17-04-2005, 20:33:00 »
zkus se podivat jestli nema funkci up a down aa takhle by to melo jit zjistit

Jonáš Pospíchal

  • Host
Vice vs. mene
« Odpověď #2 kdy: 17-04-2005, 20:56:00 »
No, přes OnChange jsem nic nevymyslel, ale zkus tohle.
Zdravím.

Jarek

  • Host
Vice vs. mene
« Odpověď #3 kdy: 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.

greybeard

  • Host
Vice vs. mene
« Odpověď #4 kdy: 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


Jarek

  • Host
Vice vs. mene
« Odpověď #5 kdy: 17-04-2005, 22:39:00 »
Zrejme dobry napad, ale potom se nepricita do pole hodnota.

Drizbach

  • Host
Vice vs. mene
« Odpověď #6 kdy: 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;

Jarek

  • Host
Vice vs. mene
« Odpověď #7 kdy: 18-04-2005, 10:50:00 »
Ano, to je presne ono, diky.