6095

SDI інтерфейс на основі модальних форм

Лекция

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

SDI інтерфейс на основі модальних форм Хід роботи Створив новий проект, та підключив до нього форму Form2. Розмістив на формах необхідні компоненти. Викликаю другу форму як модальну за допомогою події OnClick від Button1, та в цій події вказав ф...

Русский

2012-12-28

33.71 KB

4 чел.

SDI інтерфейс на основі модальних форм

Хід роботи

1)Створив новий проект, та підключив до нього форму Form2. Розмістив на формах необхідні компоненти.

2)Викликаю другу форму як модальну за допомогою події OnClick від Button1, та в цій події вказав

функції які будуть виконувати зміни на формі при натисканні BitBtn1(ОК):

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form2->ShowModal();

if (Form2->ModalResult==mrOk) {

Form1->Label1->Caption=Form2->Edit1->Text;

switch (Form2->RadioGroup1->ItemIndex) {

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

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

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

}

Form1->Height=StrToInt(Form2->Edit3->Text);

Form1->Width=StrToInt(Form2->Edit2->Text);

}

}

Тобто програма буде виконувати такі функції:

  1.  Переносити текст з Edit1Text до Label1Caption
  2.  Змінювати колір форми залежно від обраного варіанту з RadioGroup1
  3. Брати розміри Form1 з полів Edit2 та Edit3(Дані в полях появляються при створюванні модальної форми:

void __fastcall TForm2::FormCreate(TObject *Sender)

{

Edit2->Text=IntToStr(Form1->Width);

Edit3->Text=IntToStr(Form1->Height);

}


 

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

34614. Война за независимость 24.47 KB
  Ход войны 17 апреля 1775 года произошло первое вооруженное столкновение между британскими войсками и американскими сепаратистами. Британские войска заперлись в Бостоне. Однако британские войска отразили вторжение. Британские войска перешли в наступление.
34615. Образование Демократической и Республиканской партий в США 21.76 KB
  Республиканская политическая партия является более консервативной чем демократическая не имеет постоянного членства 23 избирателей США считают себя республиканцами. После победы северян и их лидера Авраама Линкольна в классовой борьбе республиканцы почти 40 лет непрерывно правили США. Люди из команды Рональда Рейгана правили США до 2009года.
34616. Реформистское движение при президентах Т. Рузвельте и В. Вильсоне. Американский империализм 18.72 KB
  В своей политике Рузвельт исходил из необходимости увеличения роли государства считая что огромной власти корпораций необходимо противопоставить еще большую власть правительства. Реформаторская деятельность Рузвельта была начата шумной кампанией против злоупотреблений трестов. За ним пришла очередь судебных процессов против треста скотобоен Чикаго табачного и сахарного трестов и других крупных монополистических объединений. Рузвельт добился ускорения судопроизводства по делам о нарушении антитрестовского законодательства и открытие дел...
34617. Ревущие двадцатые 19.76 KB
  Экономика: фермеры и горнорудная промышленность переживали трудные времена после войны но экономика США быстро перестроилась на мирное производство Америка стала самой богатой страной мира промышленность обеспечивала массовое производство общество привыкло к потребительству солдаты после войны получили жалованье за службу прекращение заказов поначалу вызвало в экономике депрессию но по мере возвращения демобилизованных солдат в мирную жизнь она прекратилась предложение превышало спрос низкие цены на товары стимуляция продаж...
34618. «Новый курс» Ф.Рузвельта 18.18 KB
  В принятом Чрезвычайном законе о банках предусматривалось возобновление функций и получение правительственных кредитов займов из федеральной резервной системы хотя это разрешалось только наиболее крупным банкам. был принят один из двух наиболее важных законов закон о восстановлении национальной промышленности НИРА. Закон о восстановлении промышленности вводил систему государственного регулирования этого подразделения экономики. Во втором и третьем разделах закона...
34619. Историко-литературная концепция Белинского и ее эволюция 32.5 KB
  Вся литература до Пушкина пересаженное иноземное растение. В слово натуральная он вкладывал понятие литература для народа а так же литература философствующая. Он понимал что есть литература как зеркало общества Гоголь НШ и литература как зеркало человека бытийственность.
34620. Мастерство полемического стиля Белинского 23 KB
  Приемы полемики: каждая статья носит прямой или скрытый полемический характер. прием интеллектуальной бури. прием иронической ремарки независимо от того о ком он пишет. прием притворного простодушия.
34621. Историко-литературная концепция Белинского и ее эволюция 45.5 KB
  Вся литература до Пушкина пересаженное иноземное растение. Сочинения Пушкина периоды: Ломоносовский карамзинский державинский пушкинский. Русская литра развивалась по двум направлениям которые слились в творчестве Пушкина. НШ как понимал ее Белинский никак не связана с творчеством Пушкина.
34622. Творчество Лермонтова в оценке критики 40-х гг 29 KB
  Его ждет душевная чахотка и гибель. Белинский: когда вышел роман Белинский пишет: дьявольский талант глубокий и могучий ум озлобленный рассудочный охлажденный взгляд Пушкин умер не без наследника лейтмотив статьи Белинского про Л. Белинский попал под магическое влияние и скучно и грустно назывет его рефлекторным следовательно вся поэзия Л рефлекторна. бел оправдывает рефлексию безверие.