Невизуальные компоненты: Main Menu, Popup Menu.. Невизуальные компоненты: MainMenu, PopupMenu, Timer, стандартные диалоги и.т.д не отоброжается на форме. - презентация

1 Невизуальные компоненты: Main Menu, Popup Menu.

2 Невизуальные компоненты: MainMenu, PopupMenu, Timer, стандартные диалоги и.т.д не отображается на форме во время работы приложения.

3 невизуальные компоненты Назначение Main Menu Создание нового меню программы Popup Menu Создание контекстного меню Timer Тактовый генератор, создающий событие On Timer с периодичностью, указанной в миллисекундах в свойстве Interval Save Dialog Отображает стандартное окно сохранения файла Open Dialog Отображает стандартное окно открытия файла Color Dialog Отображает стандартное окно выбора цвета Font Dialog Отображает стандартное диалоговое окно выбора параметров шрифта

4 Popup Menu- позволяет создать всплывающее меню, которое появляется по щелчку правой кнопки мыши на объект. Это свойство имеется у всех видимых объектов. Создается аналогично. Для того чтобы связать Форму с контекстным меню в Инспекторе объектов, выберите значение Popup Menu1 для свойства Popup Menu.

5 1. Открыть новый проект. 2. Разместить на форме экземпляры компонентов: список флажков CheckListBox, надпись Label, список ListBox. 3. Выполнить следующие действия: Выделенный объект Вкладка окна Object Inspector Имя свойства/имя события Действие Form1 Properties Caption «Головоломка» BorderStyle Задайте значение bsSingle CheckListBox1(Вкладка Additional ) Properties Items Задаем состав списка. Щелкнуть на кнопке построителя. Откроется окно String List editor (Редактор списка строк). Введите в список заданные числа через Enter. Нажмите кнопку OK. Height Подобрать значение так, что все числа поместились в список (без полос прокруток). ListBox1 (Вкладка Standard) Properties Height. Подобрать значение так, что все числа поместились в список (без полос прокруток). Первоначально список пуст. Заполняться он будет при работе программы. Label1 Properties Caption Введите текст: «Сумма: 0» Autosize Задайте значение False Alignment Задайте значение taCenter

6 procedure TForm1.CheckListBox1ClickCheck (Sender: TObject); var i, s: Integer; begin ListBox1.Clear; for i: = 0 to CheckListBox1.Items.Count-1 do if CheckListBox1.Checked[i] then ListBox1.Items.Add (CheckListBox1.Items[i]); s := 0; for i := 0 to ListBox1.Items.Count -1 do s := s + StrToInt(ListBox1.Items[i]); Label1. Caption := Сумма: + IntToStr(s); if s = 50 then begin Label1. Caption := Сумма: + IntToStr (s); CheckListBox1. Enabled := False; ListBox1. Enabled := False; end; end;

7 1. Перечислите невизуальные компоненты. 2. При помощи какого невизуального компонента можно организовать главное меню программы?