Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

fsMDIForm - > fsMDIChild -> fsNormal

Tolibas © (2007-02-16 13:33:00)
Помогите пожалуйста. У меня есть главная форма МДФорм с нее у меня есть выход на МДчайлд с чайлда я хочу выйти на нормал через шов модал вот таким вот образом :
var
f : TTypeDocsForm; //
lModalResult : Integer;
begin
f := TTypeDocsForm.Create(self);
try
lModalResult := f.ShowModal;
if lModalResult = mrOk then
begin
//
end;
if lModalResult = mrAbort then
begin
//
end;
finally
f.Free;
end;

при срабатывании этой процедуры возникает ошибка рода
'Cannot make a visible window modal' - почему оно такое пишет, у меня же форма фсНормал она же никак не может быть визибл я ее еще нигде не юзал, в чем еррор понять не могу , может кто-то уже с этим сталкивался и может объяснить что к чему.... Заранее спасибо

Сергей М. (2007-02-16 14:02:00) [1]
MDIChild-форма не можетбыть визуализирована модально.

> ой не знаю не знаю

Специально для фомы неверующего цитата из "генофонда":

procedure TCustomForm.SetFormStyle(Value: TFormStyle); var OldStyle: TFormStyle; begin .. if Value = fsMDIChild then Visible := True; .. end;

Толибас (2007-02-16 13:54:00) [2]
ой не знаю не знаю , смотрел похожую программулину там все работает , формстайлы такие же шовмодал тоже пашет, будем ковыряться, спасибо за инфу

Сергей М. (2007-02-16 13:47:00) [3]

> почему оно такое пишет

Потому что форма видима.

> визибл я ее еще нигде не юзал

Ты указал, что FormStyle = fsMDIChild.
При создании формы с таким стилем она автоматически становится видимой.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »