не знаходиться у фокусі. Правда, якщо в момент натискання Enter у фокусі знаходиться інша кнопка, то все-таки спрацює саме кнопка у фокусі. p align="justify"> Для відображення різних написів на формі використовуються в основному компонент Label. p align="justify"> Тексти, які відображаються в компоненті, визначаються значенням властивості Caption. Його можна встановлювати в процесі проектування або задавати і змінювати програмно під час виконання програми. Наприклад:. Caption: = 'Новий текст';
Колір фону визначається властивістю Color, а колір напису - подсвойством Color властивості Font.
Компонент Edit призначений для відображення, введення і редагування однорядкових текстів. Є можливість оформлення об'ємного бордюру. Основна властивість - Text. Це властивість можна встановлювати в процесі проектування або задавати програмно. p align="justify"> Властивість PasswordChar дозволяє перетворювати вікно редагування у вікно введення пароля. За замовчуванням значення PasswordChar одно # 0 - нульового символу. У цьому випадку це звичайне вікно редагування. Але якщо у властивості вказати інший символ (наприклад, символ зірочки В«*В»), то при введенні користувачем тексту у вікні будуть з'являтися саме ці символи, а не ті, які вводить користувач. p align="justify"> Хід роботи.
. Для початку запустимо Delphi. При цьому автоматично буде створено новий проект з формою. Давайте назвемо форму "Світлофор". Для цього в інспектор об'єктів на вкладці Властивості знаходимо властивість Caption і задаємо заголовок вікна Світлофор. p align="justify">. З вкладки Additional палітри компонентів, вставляємо на форму компонент Bevel і розташовуємо його так, щоб він служив як обрамлення для світлофора
. Виділимо компонент Bevel і з вкладки Additional вставимо компонент Shape. p align="justify"> У Інспекторові об'єктів на вкладці Властивості компонента Shape, у властивості Shape варто найменування stRectangle, міняємо його на stEllipse. (Для того щоб змінити властивості компонента, його потрібно вибрати, для цього достатньо клацнути по ньому мишкою). Далі вибираємо цей компонент знову і вибираємо в меню Правка/Копіювати, а потім 2 рази Правка/Вставити - тепер у нас стало 3 таких компонента. br/>В
4. З вкладки Standart палітри компонентів, вставляємо на форму компонент Button (Кнопка). Описаним вище чином розмножимо кнопки до кількості 3. p align="justify"> У Інспекторові об'єктів першої кнопки знаходимо властивість Caption і задаємо йому назву "Червоний", другої кнопки "Жовтий", а третьою "Зелений". Шрифт напису на кнопці можна змінити, клацнувши по властивості кнопки Fonts. Тепер все це красиво розташуємо на формі (як на малюнку). p align="justify">. Тепер виберемо В«ЧервонуВ» кнопку, клацнемо по ній 2 рази і запишемо вихідний код ( пишемо тільки виділений жирним код - інше генерується автоматично ):
procedure TForm1.Button1Click (Sender: TObject);. Brush.Color: = clRed;// властивість Brush визначає заливку об'екта.Brush.Color: = clWhite;. Brush.Color: = clWhite;
end;
Це означає наступне - при натисканні на першій кнопці колір першого В«очіВ» світлофора зміниться на червоний, решта - на білий.
Аналогічно поступаємо з іншими кнопками. Для В«ЖовтоїВ» кнопки:
Shape1.Brush.Color: = clWhite;
Shape2.Brush.Color: = clYellow;. Brush.Color: = clWhite;
і для В«ЗеленоїВ». Brush. Color: = clWhite;. Brush. Color: = clWhite;. Brush. Color: = clGreen;
6. Зробимо так, щоб В«очіВ» світлофора підстрибували при клацанні мишки. Щоб створити обробник події необхідно: виділити об'єкт, перейти в інспектор об'єктів на вкладку Події, знайти назву потрібного події і клацнути два рази в текстовому вікні навпроти нього. При цьому з'явиться заготовка процедури, між begin і end ми пишемо необхідні оператори. p align="justify"> У обробнику події OnMouseDown кожного з В«очейВ» помістимо код:. Top: = shape1.Top +10;// елемент переміститься на 10 одиниць вниз по вертикалі - повернеться на місце
Ця подія виникає, коли користувач натиснув ліву клавішу миші на об'єкті.
У обробнику події OnMouseUp напишемо:. Top: = shape1.Top-10;// елемент переміститься на 10 одиниць вгору по вертикалі
Ця подія виникає, коли користувач відпустив ліву клавішу миші.
!! Не забудьте поміняти номери компонентів shape2, shape3.
7. Для нетямущих зробимо підказку. p align="justify"> Властивості ShowHint кожного з компонентів Shape (В«очі світлофораВ») встан...
