Стр. 309 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
309
Таблица 26.2
Событие Условие возникновения
OnChange Происходит при изменении позиции ползунка
OnKeyPress При нажатии клавиши клавиатуры, когда компонент находится в
фокусе
OnKeyDown При нажатии клавиши клавиатуры
OnKeyUp При отпускании нажатой клавиши клавиатуры
OnEnter При получении элементом управления фокуса
OnExit При потере элементом управления фокуса
Пример 26.1
Разработать приложение, при помощи которого можно выбрать цвет и
узнать номера (индексы) цветов. Рекомендуемый вид формы приведен
на рис. 26.2.
Рис. 26.2
1. Создайте новое приложение.
2. Добавьте на форму компоненты Panel1, Image1 , TrackBar1,
TrackBar2, TrackBar3, Label1 (Красный ), Label2 (Зеленый), Label3 (Синий )
и Label4, label5, Label6 с заголовком 0.
3. В инспекторе объектов для формы Form1 создайте процедуру
FormCreate – обработчик события OnCreate,
//выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//заголовок формы
Form1.Caption:='Выбор цвета';
//минимальное значение диапазона
TrackBar1.Min:=0;
//минимальное значение диапазона
TrackBar2.Min:=0;