Проверка запуска MDI

[mavlon_m]

Аватар

Спасибо, сделал такую функцию.

function TForm1.Check_Active_MDI(Name_: string): Boolean;
var
  I: Integer;
begin
  for I := Form1.MDIChildCount-1 downto 0 do
  begin
    if Form1.MDIChildren[I].Name=Name_ then
    begin
      Result:=true;
      break;
    end;
  end;
end;

[min@y™]

Сообщение от mavlon_m

Прошу прошение,
Когда в первые открою форму значение действительно было =nil
когда я закрою MDI форму, в обработчикам событии сделаю Action:=caFree;
За ново открываю форму и уже <>nil

не подскажите что мне делать дальше?

не используй эту глобальную переменную.