Использование условных операторов в Object Pascal. Семенов Н.М. - 12 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

12
компонентов из палитры по отдельности Вы можете копировать их все с одной
страницы на другую.
1. Выберите два компонента на странице Feb, поочерёдно щёлкнув на них при
нажатой клавише Shift.
2. После выбора обоих компонентов выберите «Копировать» в меню Delphi
«Правка». Команда «Копировать» поместит выбранную группу компонентов в буфер
обмена (Clipboard) Windows.
3. Снова выберите Notebook1. Измените свойство ActivePage на Mar.
Компоненты страницы Feb пропадут и появится пустая страница Mar.
4. При выбранном компоненте Notebook1 выберите «Вставить» в меню Delphi
«Правка». Компоненты, которые Вы скопировали со страницы Feb, будут помещены на
страницу Mar.
5. Щёлкните кнопкой мыши вне поля блокнота, но внутри окна Дизайнера форм,
чтобы отменить выбор группы только что вставленных команд.
6. Выберите компонент Label и смените имя метки на LblMar, а её свойство
Caption - на March.
7. Выберите компонент ListBox и измените его свойство Name на LstMar.
8. Не забывайте почаще спасать свой проект. Для этого используйте команду
«Сохранить все» в меню «Файл».
Содержимое блокнота определено. Теперь надо обеспечить:
Появление закладок компонента TabSet во время выполнения программы.
Синхронизацию страниц блокнота с закладками таким образом, чтобы при
выборе определённой закладки показывалась соответствующая ей страница.
4.5 Синхронизация закладок со страницами блокнота
Сейчас компонент TabSet программы CASE1 не только не синхронизирован с
блокнотом, но его закладки вообще отсутствуют. Надо решить обе эти проблемы.
1. Выберите компонент ТabSet1 в окне Дизайнера форм.
2. Перейдите в окно Инспектора объектов и щёлкните на закладке страницы
«События». При этом Инспектор объектов покажет эту страницу.
3. Дважды щёлкните на правой колонке рядом со свойством события OnClick.
Система Delphi создаст скелет метода TabSet1Click и откроет редактор кода, чтобы Вы
смогли ввести содержимое этого метода.
4. Внутри вновь созданного метода TabSet1Click введите следующую строку:
Notebook1.PageIndex := TabSet1. TabIndex;
Этот оператор присваивает
значение свойства TabIndex компонента TabSet1 свойству
PageIndex компонента Notebook1. Это всё, что надо сделать, чтобы добиться
синхронизации страницы блокнота с текущей закладкой из TabSet во время
выполнения программы.
Теперь каждый щелчок мышью на закладке будет приводить к переключению
блокнота на соответствующую страницу.
Вам надо ещё задать начальные условия, чтобы закладки были доступны в
TabSet,
и чтобы TabSet был первоначально синхронизирован с блокнотом при старте
программы. Для этого выполните следующие шаги:

Страницы