Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

жүктеу 2,2 Mb.

бет	114/118
Дата	04.01.2022
өлшемі	2,2 Mb.
	#36255

1 ... 110 111 112 113 114 115 116 117 118

Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

Мысал 3.6.7

property Enabled: Boolean – Егер қасиет TRUE мәніне ие болса, онда таймер OnTimer меншік оқиғаға әсер етеді.

property Interval: Cardinal – Уақыт интервалын миллисекундпен анықтайды, одан кейін OnTimer оқиғасы пайда болады. Үнсіздікпен 1000 (1 секунда) – ға тең.

Сонымен қатар TTimer класында OnTimer оқиғасы анықталған:

property OnTimer: TNotifyEvent;

Периодты түрде Interval қасиетінде анықталған уақыт интервалы біткен сайын өрбіп отырады. Ол үнсіздікпен берілетін қасиет болып табылады.

Мысал 3.6.7 Келесі оқиғаны өңдеуіш OnTimer таймерінің оқиғасына жауап береді, ол белсенді басқару элементін бір пиксель оңға жылжытады.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Interval := 100;

IF ActiveControl <> nil THEN

ActiveControl.Left := ActiveControl.Left + 1;

end;

Мысал 3.6.8 Келесі оқиғаны өңдеуіш OnTimer таймерінің оқиғасына жауап береді, ол белсенді басқару элементін оң жаққа бір пиксельге жылжытады, оң жақ шекараға жеткенде басқару сол жақ шекараға беріледі және қозғалыс ары қарай орындалады.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Interval := 10;

IF ActiveControl <> nil THEN

IF ActiveControl.Left+ActiveControl.Width <= Form1.ClientWidth

THEN ActiveControl.Left := ActiveControl.Left + 1

ELSE ActiveControl.Left := 0;

end;

жүктеу 2,2 Mb.

Достарыңызбен бөлісу:

1 ... 110 111 112 113 114 115 116 117 118