Методические указания для лабораторных работ по дисциплине: «Проектирование информационных систем», страница 6

Рис. 1  Главная форма с указанием компонентов.

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

Рис. 2 Главная форма с компонентами.

3. Обратите внимание, что на рисунке 2 почти на каждом компоненте отображаютсяимена данных компонентов. Для удобства написания программы имена часто используемых компонентов были изменены следующим образом:

1.  DirectoryListBox1 изменено на DLBox1;

2.  FileListBox1 изменено на FLBox1;

3.  StringGrid1 изменено на SG1;

4.  RichEdit1 изменено на RE1;

5.  CGauge1 изменено на CG1;

6.  Edit1, Edit2 и Edit3 изменены на E1, E2 и E3 соответственно;

7.  CheckBox1  изменено на CB1;

8.  Button1, Button2, Button3 и Button4 изменены на B1, B2, B3 и B4 соответственно;

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

Рис. 3 Главная форма после переименования компонентов.

4. Внешний вид приложения готов. Далее нам нужно в Инспекторе объектов (Object Inspector) перейти на вкладку События (Events) и щелкнуть по свободному месту на форме. В Инспекторе объектов выбираем событие OnCreate и дважды щелкаем по нему. Откроется редактор кода и курсор будет стоять между фигурными скобками тела события.

Введем следующий код (Если событие создано, вводить код только между первой и последней фигурной скобкой в событии. Комментарии вводить не нужноитькод после перла события.):

void __fastcallTForm1::FormCreate(TObject *Sender) // <- вводить не нужно!!!

{                                 // событие "Создание формы"

Form1->Caption="Поиск";              //задает заголовок формы

Form1->BorderStyle=bsDialog;         //изменение вида рамки формы

B1->Caption="Пуск";                  //изменение надписи кнопки B1

B2->Caption="Поиск";                 //изменение надписи кнопки B2

B3->Caption="Закрыть";               //изменение надписи кнопки B3

B4->Caption="Открыть в новом окне";  //изменение надписи кнопки B4

Label1->Caption="Условие поиска:";   //изменение названия Label1

Label2->Caption="Результат:";        //изменение названия Label2

Label3->Caption="Директория";        //изменение названия Label3

Label4->Caption="Документы";         //изменение названия Label4

Label5->Caption="Маска:";            //изменение названия Label5

CB1->Caption="Использовать маску";   //изменение названия CB1

Panel1->Caption="";                  // Очистка компонента Panel1

E1->Clear();                         // Очистка компонента E1

E2->Clear();                         // Очистка компонента E2

E3->Clear();                         // Очистка компонента E3

E2->ReadOnly=1;                      // E2 не редактируется

Label1->Font->Name="Courier New";    //  Изменение шрифта Label1 (надпись)

Label1->Font->Size=12;       //  Изменение размера шрифта Label1 (надпись)

Label2->Font->Name="Courier New";    //  Изменениешрифта Label2 (надпись)

Label2->Font->Size=12;       //  Изменение размера шрифта Label2 (надпись)

Label3->Font->Name="Courier New";    //  Изменениешрифта Label3 (надпись)

Label3->Font->Size=12;       //  Изменение размера шрифта Label3 (надпись)

Label4->Font->Name="Courier New";    //  Изменениешрифта Label4 (надпись)

Label4->Font->Size=12;       //  Изменение размера шрифта Label4 (надпись)

SG1->ScrollBars=ssVertical;      // добавление верт-ой прокрутки в RE1

RE1->ScrollBars=ssVertical;      // добавление верт-ой прокрутки в RE1

SG1->DefaultRowHeight=22;        // Задаем высоту строки таблицы

SG1->DefaultColWidth=450;        // Задаем ширину столбца таблицы