но введення пароля. За замовчуванням значення 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. Зробимо так, щоб В«очіВ» світлофора підстрибували при клацанні мишки. Щоб створити обробник події необхідно: виділити об'єкт, перейти в інспектор об'єктів на вкладку Події, з...
