Ĺadny brzuch
Chciałbym zrobić w delphi pewien program. Ale niewiem jak zrobić aby odliczał np. 1 minutę (pokazywał pozostały czas w np.labelu)
i po upływie tej jednej minuty wykonał określone zadane??
PROSZE O POMOC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
_______________________________________________________________________________________________
Miłość jak i szczęście nie jest to coś, co przychodzi z zewnątrz, one są w nas, one tkwią w nas i tylko od nas zależy, czy w sprzyjających momentach wyzwalają się.
cytat:Zaper napisał:
Chciałbym zrobić w delphi pewien program. Ale niewiem jak zrobić aby odliczał np. 1 minutę (pokazywał pozostały czas w np.labelu)
i po upływie tej jednej minuty wykonał określone zadane??
Timer + Label = to co potrzebujesz
W obsłudze Timera (OnTimer) uaktualniasz zawartość Labela.
cytat:PROSZE O POMOC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Nie krzycz tak - nie jesteśmy głusi... :roll:
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
A w praktyce to by waglądało tak:
var i: integer = 60; ... procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := inttostr(i) + 'sekundy' if i = 0 then begin Timer1.Enabled := false; // Tu wpisujesz swoje procedury end; i := i - 1; end;
www.lewbar.prv.pl
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
i po upływie tej jednej minuty wykonał określone zadane??
PROSZE O POMOC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
_______________________________________________________________________________________________
Miłość jak i szczęście nie jest to coś, co przychodzi z zewnątrz, one są w nas, one tkwią w nas i tylko od nas zależy, czy w sprzyjających momentach wyzwalają się.
cytat:Zaper napisał:
Chciałbym zrobić w delphi pewien program. Ale niewiem jak zrobić aby odliczał np. 1 minutę (pokazywał pozostały czas w np.labelu)
i po upływie tej jednej minuty wykonał określone zadane??
Timer + Label = to co potrzebujesz
W obsłudze Timera (OnTimer) uaktualniasz zawartość Labela.
cytat:PROSZE O POMOC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Nie krzycz tak - nie jesteśmy głusi... :roll:
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
A w praktyce to by waglądało tak:
var i: integer = 60; ... procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := inttostr(i) + 'sekundy' if i = 0 then begin Timer1.Enabled := false; // Tu wpisujesz swoje procedury end; i := i - 1; end;
www.lewbar.prv.pl