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 1308 korisnika na forumu :: 51 registrovanih, 5 sakrivenih i 1252 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: -[CoA]-, Asparagus, Atomski čoban, bankulen, bojank, bojcistv, Botovac, comi_pfc, cvrle312, darcaud, DENIRO, Dimitrise93, dmdr, Dorcolac, Duh sa sekirom, dule10savic, FileFinder, Frunze, galijot, Georgius, gorantrojka, HrcAk47, kikisp, kybonacci, Lubica, LUDI, Luka Blažević, mackenzie, mercedesamg, Metanoja, mile09, mile23, Mirage 2000N, NoOneEver Dreams, operniki, Panonsky, Panter, Parker, pein, RecA, Ripanjac, S2M, ser.hill, Srle993, tmanda323, Tragač, VJ, wolf1, Zi0mek, zziko, Žrnov