MDI в Delphi XE

[artemavd]

Добрый день! Делаю MDI приложение. Form1 - MDI-главная форма программы. Form4 - дочерняя MDI-форма Form1. Form4 убрал из списка автосоздаваемых через Project-Options-Forms. На Form4 расположены 2 текстовых поля, в которые вводится логин и пароль для подключения к базе данных. Когда данные введены, то, нажимая на кнопку, должна вызваться функция подключения к базе, расположенная на Form1. Дочерняя MDI-Form4 прекрасно создается с помощью кода:

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
 Form4: TForm4;
begin
 Form4:=TForm4.Create(Application);
end;

У Form4 в событии Form4.Close написано

Form4.Free;

Теперь не получается на Form4 вызвать функцию, расположенную в Form1. Выдается ошибка про EAccessViolation. Что собственно говоря делать в этой ситуации?

[phomm]

Я думаю, что неправильный подход использован. Это видно по использованию локальной (!) переменной, объявленной в методе главной формы, в методе дочерней формы.
По идее, у Вас в модуле дочерней формы объявлено var Form4: TForm4; поэтому компилятор не говорит об ошибках (переменные разные, но Вы считаете , что они одинаковые), ведь формально всё верно, но в методе дочерней формы ссылка Form4 есть nil.

Решение - убрать вообще из методов дочерней формы ссылку Form4 оставляя просто имена вызовов (т.е. заменить Form4.Free; на просто Free; ), ну и до кучи убрать её из var модуля.

Более рационально пересмотреть логику в сторону фабрики дочерних форм, но это уже другая песня.