| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Ошибка создания MDI формы

TStas ©   (2009-12-18 16:43:00) 

По щелчку по кнопке должно создаваться MDI окно. вот код:
procedure TDesignedForm.Button1Click(Sender: TObject);
var
 cnt: TControl;
begin
 If Sender is TControl then
   Begin
   cnt := Sender as TControl;

   If not Assigned(FResizerForm) then
     Begin
     FResizerForm := TResizerForm.Create(Self);
     End;

   FResizerForm.BringToFront;
   FResizerForm.SelectedControl := cnt;
   End;
end;
Пока окно было главным - всё ьыло хорошо. А как сделал его не главным, получаю вот такую ошибку:
Can not create form. No MDI form are currently active.

---

Дмитрий Тимохов   (2009-12-20 02:46:00) [1]

могу лишь предположить, что в строке
FResizerForm := TResizerForm.Create(Self);
надо self заменить на ссылку на главную форму.

---

Игорь Шевченко   (2009-12-18 17:26:00) [2]

> А какую?


Которую получаешь

---

TStas   (2009-12-18 16:51:00) [3]

А какую?

---

Игорь Шевченко   (2009-12-18 16:48:00) [4]

> А как сделал его не главным, получаю вот такую ошибку:
> Can not create form. No MDI form are currently active.


Больно слышать.

Ну что же, исправляй ошибку

---

Наверх