Timer komponenta

1

Timer komponenta

offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Pozdrav
Potreban mi je jedan primer, recimo da se klikom na dugme “menjaj” na svaki sekund promeni boja nekoj figuri, odnosno da trepce, recimo plava i crvena, nebitno skroz….
figura je iz shape komponente. recimo krug.
Potrebno je da se uradi preko timer komponente. Da li se taj kod kuca klikom na action u timer komponenti ili na button action? I kako bi izgledao taj kod?

Hvala.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 24 Feb 2007
  • Poruke: 167
  • Gde živiš: Babusnica

Kuca se u action u timeru. Ali on treba da bude neaktivan (Enabled=False)
Pa klikom na dugme promenis ga u true kako bi se aktivirao preko klika na button.



offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

znaci u action u timeru kucam
timer1.enabled=false;
A kako da obezbedim menjanje boja klikom na dugme?
Znaci kad kliknem na dugme idem ovo opet samo stavim na true, pa sta dalje da radim?
i da li u action-u u timeru treba da kucam i nesto poput ovog
btmenjajclick(sender); ta sam video negde u primeru

offline
  • Pridružio: 08 Jan 2007
  • Poruke: 279
  • Gde živiš: Srbija

... procedure TForm1.Timer1Timer(Sender: TObject); begin  if Shape1.Brush.Color = clRed then   Shape1.Brush.Color:= clWhite  else   Shape1.Brush.Color:= clRed; end; ...
Sad iskombinauj sa Enabled.

offline
  • Pridružio: 24 Feb 2007
  • Poruke: 167
  • Gde živiš: Babusnica

Loshim-sr ti je dao kod sada samo obezbedi da se klikom na dugme startuje to jest u onclick da timer dobije vrednost true.

offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

To uradi na ovaj nacin

Timer1.interval := 1000;  // ovo ce ti se menjati na 1 sekund tj.1000 us OnTimer1.Timer do begin {neki kod} end;

Timer1 interval je brzina osvezavanja slike(dogadjaja) , a OnTimer1.Timer
je sta se desava kada se podaci osveze...........

Dopuna: 22 Apr 2007 17:53

Neslusaj Licanina jer nije nista reko kako treba...........(nisam nikog hteo da uvredim)

offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

Hvala.
Pravio sam simulaciju semafora, i sve sam kucao na dugme simuliraj , tu sam kucao akciju, a u stvari treba u timer-u, a ovamo samo da stavim na enabled.
Hvala vam, sad radi.

Dopuna: 22 Apr 2007 17:57

Naprotiv, ovo sto je Licanin1990 napisao, radi.

offline
  • Pridružio: 24 Feb 2007
  • Poruke: 167
  • Gde živiš: Babusnica

@LittleHacker
Cilj ovog foruma je da pomogne u resavanju odredjenih problema ali ne i da resis potpuno problem. Onaj ko postavi neki problem, treba da shvati kako i sta radi neki deo koda. A kako bi lakse to uspeo nego da sam pokusava uz neku malu pomoc.

offline
  • srdjos  Male
  • Zaslužni građanin
  • Pridružio: 27 Sep 2005
  • Poruke: 678

cuvaj se malo timera kod tih stvari
timer radi u posebnom thread-u

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Timer NE RADI u posebnom threadu. Timer koristi WM_TIMER poruku i ona se obradjuje u istom threadu u kojem je TTimer komponenta kreirana.

TTimer ne kreira nikakav nov thread.

Ko je trenutno na forumu
 

Ukupno su 805 korisnika na forumu :: 17 registrovanih, 4 sakrivenih i 784 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Apok, awathorn, Dimitrise93, Djole, Drug pukovnik, goxin, HDMI, krkalon, Marko Marković, mnn2, mocnijogurt, MrNo, ruseskij, stegonosa, vathra, Vlada1389