Архив форумов ЦИТФорума

[Алексей]

Здравствуйте!

Проблема создания MDI приложения на C++ Builder 6.
Почему может генериться исключение EAbstractError
и почему при многократном вызове одного и тогоже
окна вылетает ошибка ссылающаяся на адрес.

Я вызываю окно путем его создания а потом изменения
совйства видимости:

FNew=new TFNew(this);
FNew->Visible=true;

А закрываю:

delete FNew;

При вызове одного окна работающей программы (из компилятора)
программа просто виснет, так и не показав окно, приходиться
перезагружать компьютер (В свойстве окна OnShow - пусто).


Напишите пожалуйста может я что неправильно делаю.
И желательно куском кода на примере.
Заранее благодарен!
Алексей.

[Lucky]

SRC="http://goldsoft.by.ru/Error.JPG" BORDER=0 VSPACE=4 HSPACE=6>
К сожалению у меня нет под рукой не билдера не куска кода, но могу попытатся помочь на примере делфей поскольку пару дней назад писал подобную вещь в своем дипломе и тоже не мог понять. Вообщем я не уверен, что в MDI приложении можно пользоваться свойством Visible, поскольку я хотел скрыть все свои окна, перед этим я указал главную форму как MDI, а остальные как MDICild, и как только я нажал на Visible, то ту же вывалиось окно говорящие о том, что такого типа окна нельзя скрывать, тогда я поступил так.
1. При старте все окна создаются.

program ProjectProd;

uses
Forms,
main in 'main.pas' {fmMain},
dmod in 'dmod.pas' {fmDMod: TDataModule},
start in 'start.pas' {fmStart},
Klient in 'Klient.pas' {fmKlient},
Bank in 'Bank.pas' {fmBank},
sklad in 'sklad.pas' {fmSklad},
NALOG in 'NALOG.pas' {fmNalog},
material in 'material.pas' {fmMaterial},
Edism in 'Edism.pas' {fmEDISM},
Plan in 'Plan.pas' {fmPlan},
Nomenkl in 'Nomenkl.pas' {fmNomenkl},
Vip in 'Vip.pas' {fmVip},
Zach in 'Zach.pas' {fmZach},
VidNom in 'VidNom.pas' {fmVidNom},
psn in 'psn.pas' {fmpsn},
SFVid in 'SFVid.pas' {fmSFVid},
NOtgr in 'NOtgr.pas' {fmNOtgr},
ZD in 'ZD.pas' {fmZD},
Chit in 'Chit.pas' {fmChit},
TYPOP in 'TYPOP.pas' {fmtypop},
Dover in 'Dover.pas' {fmDover},
PrintKniga in 'PrintKniga.pas' {fmPrintKniga};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TfmMain, fmMain);
Application.CreateForm(TfmDMod, fmDMod);
Application.Run;
end.

я оставил только те окна которые, нужны будут сразу - это главная форма и форма DataMod содержащая объекты для работы с БД, точнее даже не форма а контейнер.
Создание всех остальных форм я убрал.

2. Далее, если мне надо показать какую нибуль из форм я делал так - это реакция на выбор в меню

procedure TfmMain.N20Click(Sender: TObject);
begin
if fmBank=nil then
fmBank:=TfmBank.Create(fmMain)
end;

3. Для благополучного закрытия формы я добавил метод который удаляет объект формы и все работало

procedure TfmBank.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
fmBank.Free;
fmBank:=nil;
end;


т.к. билдер основан на библиотеках и компонетха делфей, то следовательно есть большая вероятность, что все описанно будет работать, но требует переработки, а точнее заменить методы, в остальном думаю все будет нормально