Проект для Lazarus "Моргання"

Проект «Моргання»

вкладка Additional

Shape – компонента Фігури

властивості Shape:

stCircle – коло

stEllipse – еліпс

stRectangle – прямокутник

вкладка System

Timer – компонента Час

властивості Timer:

Interval – 400 мілісекунд

Enabled – false (годинник вимкнений)

Моргання:

1. Опускання вік.

        Button1

        procedure TForm1.Button1Click(Sender: TObject);

        begin

           Shape7.Height:=66;                (Shape7.Height + Shape3.Height)

           Shape8.Height:=66;                (Shape8.Height + Shape2.Height)  

           Timer1.Enabled:=true;

        end;

       2.    Піднімання вік (через 400 мілісекунд).

       Timer1

        procedure TForm1.Timer1Timer(Sender: TObject);

        begin

           Shape7.Height:=34;

           Shape8.Height:=34;

           Timer1.Enabled:=false;

        end;

Shape2     Shape8               Shape7    Shape3