Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.315 RSS
←   Март 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.315 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru

Delphi. Библиотека VCL. Уроки по программированию с сайта http://progs.biz

Рассылка №25

Delphi. VCL. Урок 38. Компонент HeaderControl.
Полные версии уроков (с картинками) можно найти по адресам
Урок 38. Компонент HeaderControl.

Изучаем Delphi. Библиотека VCL. Урок 38. Компонент HeaderControl

Компонент HeaderControl расположен на вкладке Win32 панели компонетов.

Этот компонент представляет из себя заголовок, разделенный на несколько частей (секций) по горизонтали. Количество частей и их размеры пользователь может менять. Компонент HeaderControl чаще всего применяется совместно с другими компонетами - различными таблицами и т. п.

Мы в качестве примера будем использовать HeaderControl совместно с двумя компонентами Memo. У нашего компонента HeaderControl будет две секции (по числу Memo). При изменении размеров секций размер компонентов Memo тоже будет синхронно менятся.

Создайте новый проект в Delphi, разместите на форме компонент HeaderControl. Разместите на форме компонет Memo (со вкладки Standard Палитры компонентов). Для размещенного Memo1 установите свойство Align в alLeft (по левому краю контейнера). Разместите на форме второй компонет Memo, для него установите свойство Align в alClient (по оставшеся свободной части контейнера).

Теперь добавим на компонент HeaderControl две секции. Для этого выбираем в Object Inspector для нашего компонента свойство Sections, и щелкаем на его многоточии. Появится редактор для добавления секций. В нем для добавления секции щелкаем на левой кнопке с изображением чистого листика.

Обратите внимание, что при этом в Object Inspector автоматически появится новый объект HeaderControl1.Sections[0]. Задайте для него свойство Text в, например, Title1.

Это будет загловок первой секции нашего HeaderControl'а. Аналогично добавьте и вторую секцию, для которой установите заголовок в Title2. Закройте редактор секций.

На нашей форме будут расположены HeaderControl и два компоннента Memo под ним.

Теперь займемся синхронизацией ширины секций у HeaderControl и двух компонентов Memo. Для этого добавьте код для события OnSectionResize компонента HeaderControl1:

procedure TForm1.HeaderControl1SectionResize(HeaderControl: THeaderControl;
  Section: THeaderSection);
begin
  Memo1.Width:=HeaderControl1.Sections[0].Width;
end;

Для обработчика события OnShow формы Form1 добавьте точно такой же код:

procedure TForm1.FormShow(Sender: TObject);
begin
  Memo1.Width:=HeaderControl1.Sections[0].Width;
end;

Запустите программу. Ширина у компонентов Memo будет совпадать с шириной секций компонента HeaderControl (в том числе и при изменении пользователем ширины секции).

Из полезных свойств у секций компонента HeaderControl отметим еще свойства Width (задает ширину секции по умолчанию), MaxWidth и MinWidth (задает максимальную и минимальную ширину соответственно).

Наверх
Рассылки сайта progs.biz:
Рассылки Subscribe.Ru
Уроки по SQL Server

Уроки для начинающих по SQL Server. Создание баз данных, администрирование, программирование, использование языка T-SQL, написание клиентских приложений.

Copyright Алексеев Игорь, 2002-2003
Copyright сайт progs.biz, 2002-2003
Распространение материалов без разрешения владельцев авторских прав запрещено.

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное