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

Ошибка создания MDI формы   Найти похожие ветки 

← →
TStas   (2009-12-18 16:43) [0]

По щелчку по кнопке должно создаваться 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-18 16:48) [1]

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


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

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

---

← →
TStas   (2009-12-18 16:51) [2]

А какую?

---

← →
Игорь Шевченко ©   (2009-12-18 17:26) [3]

> А какую?


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

---

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

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

---

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

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



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