у і створимо обробник OnClick для неї. p align="justify"> procedure TForm1.BitBtn1Click (Sender: TObject); i, c, k, ak: integer; Sender as TBitBtn do: = Tag div 2;: = Tag mod 2;: = ni;: = abs (k); ak <3 then ((c = 0) and (k> 0)) or
((c = 1) and (k <0)) then: = tag +2 * k;: = left +56 * k;: = win-ak;: = i;;; win = 0 then: = Vaw!! ';. Color: = clFuchsia;// міняємо колір панелі
panel1.Enabled: = false;/всі кнопки, що знаходяться на панелі стають недоступними /;;
Зверніть увагу на те, що в процедуру передається параметр - об'єкт Sender. Він представляє саме той об'єкт, який викликав подія, і може дати доступ до його властивостей. Але прямо це не вийде. Програмі треба спеціально вказати, що об'єкт Sender в даному випадку слід вважати кнопкою. Для цього служить ключове слово as. Після нього вказують тип, якому насправді належить об'єкт Sender: Sender as TBitBtn
6. Для кожної з кнопок на вкладці Події у вікні навпроти OnClick виберіть зі списку вже описану нами процедуру. br/>
Виконати самостійно:
Спробуйте виграти!
Результатом виконання даної лабораторної роботи є створений згідно із завданням програмний продукт. Виконане завдання повинне бути пред'явлено викладачеві в електронному вигляді. У ході захисту лабораторної роботи студент повинен продемонструвати свої навички роботи з вивченими компонентами та методами проектування інтерфейсу користувача. br/>
Лабораторна робота № 4. Генератор функцій
Мета: Вивчення компонента PaintBox і методів малювання на канві. Компонент TrackBar
Короткі теоретичні сведенія.представляет собою деяку обмежену поверхню з канвою, на яку можна заносити зображення. Канва являє собою область компонента, на якій можна малювати або відображати готові зображення. Вона містить властивості і методи, що істотно спрощують графіку Delphi. p align="justify"> Канва має властивість Pixels. Це властивість являє собою двовимірний масив, який відповідає за кольору канви. Наприклад, Canvas.Pixels [10,20] відповідає кольору пікселя, 10-го ліворуч та 20-го зверху. З масивом пікселів можна звертатися як з будь-яким властивістю: змінювати колір, задаючи пікселю нове значення, або визначати його колір по заховану в ньому значенню. Наприклад, Canvas.Pixels [10,20]: = 0 або Canvas.Pixels [10,20]: = clBlack - це завдання пікселю чорного кольору. p align="justify"> Канва - об'єкт класу TCanvas має безліч методів, які дозволяють малювати графіки, лінії, фігури за допомогою властивості Pen - перо. Ця властивість є об'єктом, у свою чергу мають ряд властивостей. Одне з них вже відоме вам властивість Color - колір, яким нанос...
