Timer komponenta

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

... 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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.