Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2014, 12:27   #11
mavlon_m
Форумчанин
 
Регистрация: 04.08.2009
Сообщений: 101
По умолчанию

Цитата:
Аватар
Спасибо, сделал такую функцию.

Код:
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;

Последний раз редактировалось mavlon_m; 24.10.2014 в 12:32.
mavlon_m вне форума Ответить с цитированием
Старый 24.10.2014, 17:24   #12
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

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

не подскажите что мне делать дальше?
не используй эту глобальную переменную.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Стереть параметры запуска после запуска Anton911 Общие вопросы Delphi 18 14.04.2013 15:17
проверка запуска ie muham33 Помощь студентам 1 12.01.2013 14:48
Ощибка создания MDI формы. Cannot create form. No MDI forms are currently active LISTAT Общие вопросы Delphi 1 26.05.2012 21:06
excel.Проверка VBA и проверка функции Будда Помощь студентам 0 14.04.2011 21:10
Передача параметра с MDI родителя в MDI child через DLL ByXalkin Общие вопросы Delphi 0 15.12.2009 17:21