Изменение внешнего вида форм

Ïðè ðàáîòå ñ íåêîòîðûìè ôîðìàìè ïðèõîäèòñÿ îãðàíè÷èâàòü âîçìîæíîñòè ïîëüçîâàòåëÿ ïî èõ èñïîëüçîâàíèþ â êà÷åñòâå îêîí.

Äëÿ ýòîãî èñïîëüçóåòñÿ ñâîéñòâî ôîðìû BorderStyle.

Например, свойство BorderStyle/

bsDialog блокирует кнопки максимизации и минимизации окна, удаляет системное меню и запрещает возможность изменения размеров формы.

Опции bsSizeToolWin и bsToolWindow удаляют системное меню, но добавляют узкую полосу инструментов. Опция bsSizeToolWin позволяет изменять размеры окна, а bsToolWindow это запрещает.

При использовании опции bsNone форма появляется без панели инструментов, без системного меню или кромки с фаской.

Опция bsSingle не позволяет изменять размеры формы.

Ссылки на элементы управления на других формах

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

…..

Implementation

uses Unit2;

{$R *.DFM}

procedure Tform1.Button1Click(Sender: TObject);

Begin

Edit1.Text:=Form2.Edit1.Text;

end;

Пример ссылки на элементы управления на другой форме

1. Меню File/New Application

2. Поместить на форму1 Edit1 è Button1.

3. Дважды кликнуть по Button1 и в редакторе кода набрать:

Edit1.Text:=Form2.Edit1.Text;

4. Äîáàâèòü 2 ôîðìó: из меню File âыполнить командуNew Form.

5. Выделить Form1. В меню File выбрать команду Use Unit, далее появится окно, в котором появится список всех форм данного приложения. Из списка нужно выбрать нужное (Form2) и нажать ОК.

6.Добавить на форму 2 Edit1 и установить его свойство Text в Object Inspector равным “Пробная передача данных”.

7. F9.

Компонент PageControl

Компонент PageControl (вкладка System) создает новые страницы для других элементов управления.Отображаемые PageContrоl страницы создаются после щелчка правой кнопкой мыши на этом компоненте и выбора в контекстно-зависимом меню команды New Page. При этом автоматически создается новая страница с именем TabSheet1. Просмотр и редактирование страниц можно из контекстно-зависимого меню командой Next или Page Previous.