[delphi]Animacja w Edycie

Witam.

Czy istnieje możliwość na animację w Edycie ?

Chodzi mi o kolejne zmienianie tych znaków: |/-|/-|

Jeśli pod tajmerek damy taki kodzik:

Timer1.OnTimer(Sender : TObject); begin Edit1.Text := '|'; Edit1.Text := '/'; Edit1.Text := '-'; Edit1.Text := '|'; Edit1.Text := '/'; Edit1.Text := '-'; Edit1.Text := '|'; end; end.

To oczywiscie bedzie tylko ostatni znak w Edycie ( "|" ).

Czy jest jakis sposob na to ? :mellow:

Pozdrawiam.
Użytkownik Shooter edytował ten post 26 luty 2006, 22:03

---

sleep()

const arr: array [0..6] of char = ('|' , '/' , '-' , '|' , '/' , '-' , '|'); begin timer1.tag:= timer1.tag+1; if timer1.tag > 6 then timer1.tag:= 0; edit1.text:= arr[timer1.tag]; end;
naprawde az tak ciezko ruszysc glowa, zebrac informacje o tablicach i pomyslec o jakims liczniku? :|

Thx migajek :)

Ps. Sleep nie dziala :P

---

Thx migajek :)

Ps. Sleep nie dziala :P


widocznie nie umiesz użyć tego ;)


bo zapomniales ze trzeba tez processmessages ;]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl