Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Методичка по лабораторным Delphi.doc
Скачиваний:
42
Добавлен:
13.02.2016
Размер:
610.3 Кб
Скачать

8. Общие свойства компонентов Hint.

Все видимые элементы имеют свойства Hint: String, ShowHint: Boolean, регулирующие появление и содержание ярлычка – небольшого справочного окна возле элемента, на котором остановился курсор.

  1. В свойство Hint для панели Panel1 введите текст: «Эту панель можно перемещать».

  2. Свойству ShowHint задайте значение True.

  3. Осуществите прогон программы и убедитесь в том, что при остановке курсора над компонентом Panel1 «всплывает» Hint.

Задания:

1. Снабдите справочной информацией компоненты вашего приложения, используя свойства Hint и ShowHint.

2. На главной форме приложения установите компонент TStatusBar, в котором отразите текущую дату (Date - возвращает текущую дату в формате TDateTime; DateToStr - преобразовывает значение даты формата TDateTime в ее строковое представление) и текущие координаты мыши.

3. В лабораторной работе №2 организуйте интерфейс Drag&Drop для переноса единиц измерения в метку. Для этой цели дополните приложение еще одним компонентом TLabel.

4. Организуйте интерфейс Drag&Drop для перемещения кнопки по форме в лабораторной работе №2.

5. Установите защиту информации для ввода в лабораторной работе №2.

6. В лабораторной работе №3 организуйте интерфейс Drag&Drop для переноса значения среднего балла из редактора в метку. Для этой цели дополните приложение еще одним компонентом TLabel.

7. Установите защиту информации для ввода в лабораторной работе №3.

Программу запишите в Ваш каталог Lab6.

Лабораторная работа № 7

СТАНДАРТНЫЕ ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ. ДОПОЛНИТЕЛЬНЫЕ ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ. ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ ИНТЕРФЕЙСА WIN32. КОМПОНЕНТЫ СИСТЕМНЫХ ИНТЕРФЕЙСОВ WINDOWS.

Теоретические сведения

Новые элементы управления Windows 95/98 расположены на странице Win32. Это многостраничные блокноты, контейнеры для панелей инструментов с возможностью переноса элементов управления (Docking), древовидные списки, календари, компоненты для изменения значений (плавного – TTrackBar и скачкообразного TUpDown), компонент для отображения процесса выполнения операции и другие.

Ход работы

1. Загрузите систему визуального программирования Delphi.

2. Создайте в своем каталоге подкаталог Lab7. Создайте новое приложение.

3. Панели инструментов.

  1. Поместите на форму контейнер для панелей инструментов TControlBar (страница Additional). Компонент служит удобным контейнером для размещения инструментальных панелей TToolBar. Он активно использует технологию Drag&Dock для управления положением панелей. Установите в его свойство Align значение alTop, в AutoSize – True, в DragKind – dkDock. Оставьте в свойстве DragMode значение dmManual.

  2. Положите на свободное место формы два компонента ImageList (страница Win32) и наполните каждый из них четырьмя изображениями. Чтобы наполнить компонент ImageList изображениями, подведите курсор, дважды щелкните мышью и выберите в его вспомогательном меню опцию ImageList Editor.

  3. В появившемся окне редактора нажмите кнопку <Add> и выберите BMP-файлы из каталога Images\Buttons. Файлы в этом каталоге имеют по два изображения, в то время как компонент ImageList способен хранить только одиночные изображения одинакового размера. Поэтому редактор предложит Вам разделить два изображения. Согласитесь с ним. Щелкните, указав правое изображение в окне редактора и нажмите кнопку <Delete>, чтобы уничтожить его.

  4. Повторите п. 2, 3 для загрузки нескольких изображений и затем закройте редактор.

  5. Поместите на компонент ControlBar1 компонент TToolBar (страница Win32). Установите в свойство Images компонента ToolBar1 значение ImageList1 и поместите в него четыре кнопки. Для вставки кнопки щелкните по ToolBar1 правой кнопкой и выберите опцию NewButton.

  6. Поместите на ControlBar1 компонент TToolBar. Измените в его свойстве Align значение alTop на alNone. Свяжите компонент с ImageList2 (свойство Images) и создайте в нем кнопки (см. п. 2,5).

  7. Для обоих компонентов TtoolBar поместите в свойство DragKind значения dkDock, в DragMode – dmAutomatic и в AutoSize – True.

  8. Запустите программу и попробуйте поместить панели.