Исходники Delphi

Добро пожаловать на наш портал

На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта

Меню

Не доступно

Не доступно

Опрос

Оцените мой сайт

Проголосовало: 118
Другие опросы

Главная » 2013 » Февраль » 17 » Компонент блокнота с закладками TabControl.
16:00
Компонент блокнота с закладками TabControl.
Компонент блокнота с закладками TabControl.

TabControl – это одностраничный блокнот. Он представляет собой прямоугольную область с набором закладок, имеет одну страницу, общую для всех закладок. Программист должен кодировать действия для изменения информации, отображаемой на странице при выборе определенной закладки. Для этого используется событие OnChange.

Пример использования одностраничного блокнота – создание календаря или записной книжки с алфавитным указателем.

Свойства компонента:

· Style – стиль:

> tsTabs – стандартные закладки объемного вида;

> tsButtons – закладки в виде кнопок;

> tsFlatButtons – закладки в виде плоских кнопок.

· Tabs – количество закладок и их названия (это список строк в редакторе);

· Multiline – отображение закладок в виде нескольких строк или одной строкой;

· TabPosition – выбор расположения закладок в различных местах блокнота

> tpTop – вверху;

> tpBottom – внизу;

> tpLeft – слева;

> tpRight – справа.

· TabWidth – ширина закладки в пикселях (по умолчанию 0, и размеры определяются атоматически в зависимости от длины названия);

· TabHeight – высота закладки в пикселях;

· TabIndex – определяет номер выбранной закладки в массиве строк с названиями, нумерация начинается с нуля. 

Пример использования компонента TabControl для разработки календаря: 

посмотреть или скачать пример » 

Для разработки приложения надо:

1) поместить на форму компонент TabControl (закладки для наименований месяцев года в календаре), сформировать в свойстве Tabs 12 строк с сокращенными названиями месяцев;

2) в поле компонента TabControl поместить компонент Calendar из страницы Samples;

3) связать номера месяцев календаря с номерами выбранных закладок компонента TabControl; для этого создать обработчик события OnChange:

procedure TForm1.TabControl1Change(Sender: TObject);

begin

Calendar1.Month := TabControl1.TabIndex +1;

end;

4) разместить под компонентом TabControl

2 метки типа TLabel со свойствами Caption = ‘Год:’ и ‘День недели:’

компонент SpinEdit из страницы Samples для вывода и изменения года на календаре. Чтобы переслать из строки компонента SpinEdit значение года в календарь, создать обработчик события OnChange:

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

Calendar1.Year := SpinEdit1.Value;

end;

компонент Edit1 – для вывода наименования дня недели, выбранного в календаре. Для этого создать обработчик события OnChange и поместить туда массив А – типизированных констант с наименованиями дней недели и текст оператора присваивания.

procedure TForm1.Calendar1Change(Sender: TObject);

const

A : Array [1..7] of string[11] = ('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота');

begin

Edit1.Text := A [DayOfWeek(Calendar1.CalendarDate)];

end;

5) сформировать на календаре Date –исходную дату, установленную на ПК, и год в окне SpinEdit1, создав для этого обработчик события:

procedure TForm1.FormCreate(Sender: TObject);

begin

Calendar1.CalendarDate := Date; // исходная дата

TabControl1.TabIndex := Calendar1.Month -1; // месяц в TabControl1

SpinEdit1.Value := Calendar1.Year; // год в SpinEdit1

end;

2. Элемент управления PageControl – многостраничный блокнот

Элемент TPageControl обеспечивает создание многостраничных окон. На каждой странице данного элемента можно размещать любые другие компоненты. Доступ к каждой странице, содержащей свой набор элементов управления, осуществляется через так называемые корешки – небольшие выступы над страницей, содержащие короткое название. Данный элемент управления позволяет эффективно экономить экранное пространство.

Добавлять и удалять вкладки можно как на стадии разработки программы, так и во время выполнения программы. Первоначально компонент, помещенный на форму, будет пустым – не содержащим ни одной страницы.

Для добавления вкладки используется команда New Page (Создать страницу) контекстного меню компонента TPageControl. Каждая отдельная вкладка является объектом класса TTabSheet.

В списке объектов в Инспекторе Объектов появляется описывающий ее новый объект TabSheet1.

Переключаться между страницами можно простым щелчком мышки на корешке. Названия, указанные на закладках, меняются так: сначала выбирается нужная страница при помощи щелчка на ее клиетской части или выбором в списке Инспектора Объектов, затем нужное название вводится в свойство Caption.

Слева от названия можно разместить рисунок (пиктограмму). Для этого нужно разместить на форме компонент ImageList, заполнить его рисунками. Подключить ImageList к компоненту PageControl выбором его имени из списка свойства Images. Для компонента TabSheet рисунок задается значением его номера в свойстве ImageIndex. Значение ImageIndex = 0 означает, что на этой странице рисунка нет. Ширина закладки и страницы изменяется автоматически в соответствии с размером рисунка и текста названия страницы.

Удаление вкладок произво­дится командой Delete Page контекстного меню.

Основные свойства элемента TPageControl.
Категория: Для новачка | Просмотров: 1330 | Добавил: Reif | Теги: Для новачка | Рейтинг: 0.0/0
Всего комментариев: 0


Название блока

Здесь html код

Название блока

Здесь html код

Название блока

Здесь html код

Название блока

Здесь html код

 
Исходники Delphi
Сделать бесплатный сайт с uCoz |