Скачать: CL | DM;

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]

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

---

← →
Сергей М. ©   (2007-02-16 14:02) [3]

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


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


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

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


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.961 c