fsMDIForm - > fsMDIChild -> fsNormal

← →
Tolibas (2007-02-16 13:33) [0]

Помогите пожалуйста. У меня есть главная форма МДФорм с нее у меня есть выход на МДчайлд с чайлда я хочу выйти на нормал через шов модал вот таким вот образом :
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 13:47) [1]

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

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

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

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

← →
Толибас (2007-02-16 13:54) [2]

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

MDIChild-форма не может быть визуализирована модально.

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

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

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

fsMDIForm - > fsMDIChild -> fsNormal Найти похожие ветки