6880

Головне меню програми та MDI інтерфейс

Лабораторная работа

Информатика, кибернетика и программирование

Головне меню програми та MDI інтерфейс Хід роботи 1)Створив новий проект, додав 2 форми, розмістив необхідні компоненти на формах. Далі вказав головну батьківську форму...

Украинкский

2013-01-08

74.18 KB

2 чел.

Головне меню програми та MDI інтерфейс

Хід роботи

1)Створив новий проект, додав 2 форми, розмістив необхідні компоненти на формах.

Далі вказав головну батьківську форму:

FormStyle=fsMDIForm

та дочірню форму:

FormStyle=fsMDIChild

Project->Option->Forms

Auto-Create    Available

Form1     Form2

Form3

2)Створив головне меню MainMenu1->Items

Та для елементів меню написав такий код:

void __fastcall TForm1::New1Click(TObject *Sender)

{

TForm2(this);

}

void __fastcall TForm1::Edit1Click(TObject *Sender)

{

int m=MDIChildCount-1;

for (int i=0;i<=m;i++)

{

MDIChildren[i]->Close();

}

}

void __fastcall TForm1::About1Click(TObject *Sender)

{

Form4->Show();

}

3)Для зміни ім’я активного вікна використовував такий код:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (MDIChildCount!=0)

{

ActiveMDIChild->Caption=Edit2->Text;

}

4) Для зміни кольору вікна, використав RadioGroup:

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if (MDIChildCount!=0){

switch (RadioGroup1->ItemIndex) {

case 0: ActiveMDIChild->Color=clRed;break;

case 1: ActiveMDIChild->Color=clYellow;break;

case 2: ActiveMDIChild->Color=clGreen;break;

}

5)Для сортування вікон каскадом, по горизонталі, по вертикалі також використовував RadioGroup:

void __fastcall TForm1::Button4Click(TObject *Sender)

{

switch (RadioGroup2->ItemIndex)

{case 0:Cascade();break;

case 1:TileMode=tbVertical;Tile();break;

case 2:TileMode=tbHorizontal;Tile();break;

}

}


 

А также другие работы, которые могут Вас заинтересовать

78125. Идеи Платона. Платонова теория государства 113 KB
  B иcтopии миpoвoй кyльтypы Плтoн вeликoe явлeниe. Плтoн oдин из yчитeлeй чeлoвeчecтв. Учeниe излгвшeecя cмим Плтoнoм в eгo книгx в пocлeдcтвии eгo пpиeмникми в кдeмии былo пoлнo зблyждeний. И вce жe Плтoн oдин из yчитeлeй чeлoвeчecтв.
78128. ПЛАНИРОВАНИЕ ИНЖЕНЕРНОГО АНАЛИЗА ПРИ СОЗДАНИИ УСТРОЙСТВ, ИСПОЛЬЗУЮЩИХ МАГНИТНОЕ ПОЛЕ ДЛЯ СНИЖЕНИЯ ПОТЕРЬ ЭНЕРГИИ В СИСТЕМЕ «КОЛЕСО-РЕЛЬС» 161.5 KB
  Внедрение асинхронных тяговых электродвигателей и систем управления обеспечивающих регулирование осевого тягового усилия для каждой оси в соответствии с предельными возможностями по условию сцепления также не является исчерпывающим решением проблемы в связи с тем...
78130. ЭНЕРГОСБЕРЕГАЮЩИЕ НАПРАВЛЕНИЯ ДЛЯ МОДЕРНИЗАЦИИ СИСТЕМ ТЕПЛОСНАБЖЕНИЯ МНОГОКВАРТИРНЫХ ЖИЛЫХ ДОМОВ В Г.ОРЛЕ 67 KB
  Для повышения энергоэффективности при модернизации систем теплоснабжения необходимо внедрять разработку научных основ технических решений и опытно-конструкторской документации с использованием комплексного автоматического регулирование параметров теплоносителя...
78131. Определение энергоэффективных режимов резания многослойных материалов гидроабразивной струей 286.5 KB
  Одной из ключевых экологически чистых технологий радикально решающей вопросы производства деталей из любых материалов является гидроабразивное резание. Явные преимущества этой технологии обеспечили ее внедрение на многих предприятиях страны.
78133. Адекватность инноваций 44.5 KB
  Адекватность доказывают методом тождественности эквиваленту исследуемой модели итерационным анализом или оптимизации. Метод тождественности математических моделей доказывает адекватность математической модели физике явления и процессам преобразования физической модели...