Site-ul profesorului de la Nisa din Uralsk al lui Boris Alexandrovich Green

Componenta Delphi - Timer

Componenta Delphi Timer este o componentă foarte simplă, care nu este vizibilă pe ecran, dar, cu toate acestea, Timer Delphi îndeplinește funcții foarte importante în program. Delphi Timer vă permite să introduceți întârzierile necesare între efectuarea anumitor acțiuni.
Componenta Timer are doar patru proprietăți și un eveniment și este foarte ușor să lucrați cu componenta Delphi Timer.

Site-ul profesorului de la Nisa din Uralsk al lui Boris Alexandrovich Green

Plasați componenta Delphi Timer pe formular. Am setat proprietatea Interval la intervalul de timp necesar (măsurat în milisecunde). Mergem la fila Evenimente și vedem singurul eveniment susținut de componenta Delphi Timer: OnTimer. Dacă faceți dublu clic pe el sau, de asemenea, făcând dublu clic pe componenta însăși, intrăm în programul de procesare a evenimentului generat de Delphi, unde introducem codul care asigură executarea anumitor acțiuni.

Deoarece implicit soystvo activat este setată la True, programul după o anumită perioadă de timp, în proprietatea Interval a lucrărilor timer, atunci nu va da eveniment OnTimer. Vor fi întreprinse acțiunile necesare. Uneori, acțiunile planificate nu ar trebui să se întâmple automat când începe programul, ci când se efectuează alte acțiuni. În acest caz, trebuie să setați proprietatea Activat în Inspectorul de obiecte la Fals. Apoi, la timpul necesar, trebuie să executați comanda:

Rețineți că, în timp ce Timer1.Enabled egal cu adevărat, componentele continuă să genereze eveniment OnTimer la expirarea fiecărui interval de timp egal cu svoyctva valoare a intervalului. Prin urmare, dacă aveți nevoie doar de o singură operație, atunci temporizatorul trebuie oprit și imediat:

procedura TForm1.Timer1Timer (expeditor: TObject);
începe
Timer1.Enabled: = False;
<Необходимые действия>
se încheie;

Dacă programați oprirea temporizatorului după executarea acțiunilor specificate în program, atunci temporizatorul va funcționa din nou dacă valoarea proprietății Interval este suficient de mică în comparație cu durata acțiunilor necesare și acest lucru poate interfera cu cursul programului.

Componenta Delphi Timer nu este foarte precisă și nu este potrivită pentru măsurarea intervalelor scurte de timp. Precizia sa este de aproximativ 50 de milisecunde. De exemplu, vă dau un program simplu care afișează ora curentă.

Pe formularul va numai componenta Label și, de fapt, componenta noastră Delphi Timer. caracteristica temporizator poate fi lăsată la 1000, dar mai devreme pe computere mai lente a trebuit să afișeze ora, de mai multe ori pe secundă, datorită influenței altor ieșire din proces-calculator executabil o dată a doua lectură să „plutească“, care a fost în mod clar vizibile cu ochiul liber. dimensiunea fontului ia mai mult - 50, și va ridica mai buna, am luat Bell MT. Extindeți întregul formular: Align = alClient. De fapt, codul în sine:

procedura TForm1.Timer1Timer (expeditor: TObject);
începe
Label1.Caption: = TimeToStr (Acum);
se încheie;

Asta e tot! Delphi Acum este o funcție de sistem care returnează data-dată curentă în formatul TDateTime corespunzător. Dacă îl convertiți într-un șir folosind funcția TimeToStr, acesta va returna ora curentă, dacă DateToStr, apoi data curentă. Dacă dorim să afișăm data și în programul nostru, este suficient să plasăm încă o componentă de etichetă și să trecem funcția DateToStr la ea.

PROPRIETATE - SCOP
Activat - Temporizator "On / Off"
Interval - Interval de funcționare (în milisecunde)
Nume - Numele componentei din program
Tag - Un parametru numeric arbitrar