Ошибка создания 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 заменить на ссылку на главную форму.

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