Учебное пособие: Обєктно-орієнтоване програмування МП Delphi

Procedure TFLR8.Timer1Timer(Sender: Tobject);

Begin

TimeLable1.Caption:=TimeToStr(Time);

End ; Цей код конвертує (переводить) поточний час у рядок String }.

8.Зкомпілювати додаток і запустити його. Вікно форми з ім'ям FormLR8 – без кнопок максимізації і мінімізації.

9.Вийти в Delphi на форму FormLR8.

II . Маніпуляція з кольорами форми – мерехтіння кольору форми.

1.Вибрати об'єкт Timer1 на формі.

2.Установити властивість Interval = 100

3.Код обробки події OnTimer доповнити процедурою (методом):

FLR8.Color := trunc ( $02ffffff * random );

Ім'я (Name) форми властивість кольору

4.Зкомпелювати і запустити проект.

III . Робота з календарем. Ви ведення повідомлення.

1.Розмістити на формі кнопку, змінити заголовок Caption на «Час», ім'я Name – Button1.

2.Розмістити на формі зі сторінки WIN32 візуальний компонент TDateTimePicker .

3.Встановити режим відображення дати з розкритим календарем (поле зі списком):

властивість DateMode = dmComboBox; властивість Kind = dtkDate.

4.Встановити режим у вигляді лічильника:

властивість DateMode = dmUpDown.

5.Обробити подію натинення кнопки «Час» для виведення в інформаційному діалоговому вікні повідомлень поточного часу:

MessageDlg('Поточний час

+ TimeToStr(DateTimePicker1.Time),mtInformation, [mbOK],0);

6.Впорядкувати розміщення об'єктів на формі {вибрати всі об'єкти форми: меню Edit ( Select all };

{Впорядкувати об'єкти : Edit → Align → діалогове вікно - по горизонталі → Center (центрувати)

по вертикалі → SpaceEqual (рівна відстань)}

7.Зкомпілювати і запустити додаток.

8.Зберегти модуль і проект.

Контрольні питання.