Форум программистов [Powered by Invision Power Board]

Код


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include "modw.h"
//---------------------------------------------------------------------------
TGenForm *GenForm;
ClassModules * Modules;
//---------------------------------------------------------------------------
__fastcall TGenForm::TGenForm(TComponent* Owner)
        : TForm(Owner),
        Reg(new TRegistry())
{
        Modules = new ClassModules(this);
        Modules->LoadModules();
        FillMenu();
}

//---------------------------------------------------------------------------

void __fastcall TGenForm::FillMenu()
{
        int i = 0;
        while(ClassModule * Module = Modules->GetModule(i))
        {
                ++i;
                TForm * Form = new TForm(this);
                Form->Parent = this;
                Form->FormStyle = fsMDIChild;
                Form->Caption = Module->GetModuleName();
                Form->DefaultMonitor = dmMainForm;
                Form->Tag = i;
                //TsSkinProvider * sp = new TsSkinProvider(Form); Если это поставить, то вываливается сообщение No MDI


                TButton * Button = new TButton(Form);
                Button->Parent = Form;
                Button->Caption = "ssssssssssss";
        }
}

Код


object GenForm: TGenForm
  Left = 205
  Top = 182
  Width = 696
  Height = 480
  Caption = 'GTK Main'
  Color = 14215660
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  OldCreateOrder = True
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13