4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1.N2Click (Sender: TObject);
begin
Close; end;
procedure TForm1.N5Click (Sender: TObject); begin
Imagel.Picture.LoadFromFile ('C:\Windows\Облака.bmp'); end;
procedure TForm1.N6Click (Sender: TObject); begin
Imagel.Picture.LoadFromFile ('C:\Windows\Лес.bmp'); end;
procedure TForml.FormMouseDown
(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X. Y: Integer); var p:TPoint; begin
p.X :=X; p.Y :=Y;
p := ClientToScreen (p); PopupMenul.Popup (p.X, p.Y); end;
№9. Случайный выбор
Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы в окне изображается три поля.
Рис. 26.
2. По щелчку мышью на кнопке "Случайный выбор" из трех слов составляется предложение случайным образом.
Рис. 27.
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button.
3. Выполнить следующие действия:
Таблица 8.
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Forml ComboBoxl (Вкладка Standard) |
Properties |
Caption |
Установка имени формы "Сочинитель" |
Events |
OnCreate |
ComboBox1.ItemIndex :=0; ComboBox2.ItemIndex :=0; ComboBox3.ItemIndex :=0; |
|
Properties |
Style |
Выберите значение cSDropDownList из раскрывающегося списка |
|
Items |
Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. |
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
ComboBox2 (Вкладка Standard) |
Properties |
Style |
Выберите значение cSDropDownList из раскрывающегося списка |
Items |
Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. |
||
ComboBox3 (Вкладка Standard) |
Properties |
Style |
Выберите значение cSDropDownList из раскрывающегося списка |
Items |
Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. |
||
Buttonl (Вкладка Standard) |
Properties |
Caption |
Установка имени кнопки "Случайный выбор" |
Events |
OnClick |
ComboBox1.ItemIndex := Random(ComboBox1.Items.Count); ComboBox2.ItemIndex := Random(ComboBox2.Items.Count); ComboBox3.ItemIndex := Random(ComboBox3.Items. Count); |