Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

окна.....окна....окна... [D5, Win95/98]

Koks © (2002-01-29 17:18:00)
Необходимо запретить пользователю открывать более одного
экземпляра формы MyForm.

Код:

procedure OnButtonClick;
begin
if assigned(MyFrorm) then
begin
MessageDlg("... форма уже открыта....");
Exit;
end
else
begin
Application.CreateForm(TMyForm, MyForm);
MyForm.Show;
end;
end;
--------------
procedure TMyForm.OnClose(...)
begin
Action := caFree;
end;

МуForm - MDIChild-форма

Сначала все OK. форма креатиться и показывается.
Если в этот момент попытаться открыть еще одну MyForm - все правильно - высвечивается мессадж "форма уже открыта".

Далее - закрываю форму MyForm. (при этом по caFree она должна убираться из памяти...). Все в порядке...

Теперь вновь пытаюсь открыть MyForm.
Результат - "форма уже открыта"...... ПОЧЕМУ !!!!
Подскажите...

Юрий Зотов (2002-01-30 13:55:00) [1]
Можно и TList, только не так, а проще:

FormList.Add(TMyForm.Create(Application));

А в обработчике TMyForm.OnDestroy пишем:
FormList.Remove(Self); // Автоматическое самоудаление из списка

Еще вариант - динамический массив.
var
FormArray: array of TMyForm;

function CreateMyForm: TMyForm;
begin
Result := TMyForm.Create(Application);
try
SetLength(FormArray, Length(FormArray) + 1);
FormArray[High(FormArray)] := Result
except
Result.Release;
raise
end
end;

Koks (2002-01-30 12:40:00) [2]
Друзья ! Спасибо большое за ответы - все заработало. Воспользовался способом Юрия Зотова....
Но в догонку возник дополнительный вопрос.
В дальнейшем (когда кончательно отлажу алгоритм) мне нужно будет разрешать пользователям открывать одновременно несколько экземпляров MyForm одновременно, которые будут креатиться и уничтожаться динамически. Причем количество этих экземпляров будет ограничиваться только ресурсами системы.
Читал в документации по Delphi, что для каждого экземпляра формы необходима отдельная переменная, иначе формы "теряются" - т.е. открываем одну MyForm - все нормально - ссылка на нее в переменной var MyForm: TMyForm. Открываем вторую (при открытой первой) ссылка на нее туда же, а ссылка на первую в этот момент "теряется"
Вопрос: в какой структуре хранить ссылки. Напрашиваестя TList...
т.е. Каждый раз:

var
PointToForm: TForm;
FormList: TList;
....

New(PointToForm);
Application.CreateForm(TMyForm, MyForm);
PointToForm := MyForm;
FormList.Add(PointToForm);

прежде чем кодить хочк спросить совета - может я на ложном пути....
может кто решал такую проблему по-другому...

Johnmen (2002-01-30 09:38:00) [3]
>>>Юрий Зотов © :
медленнее - это типа вместо 0.1 мкс будет 10 мкс ?
:o)))))))))

Anatoly Podgoretsky (2002-01-29 21:54:00) [4]
Правильнее запретить кнопку при создании (что бы пользователю неповадно было) и разрешить при закрытии. Этим достигается обратная связь.

Юрий Зотов (2002-01-29 17:47:00) [5]
> Johnmen © (29.01.02 17:44)

... только раз в 100 медленнее, чем могло бы.

Johnmen (2002-01-29 17:44:00) [6]
А я всегда пользовался Application.FindComponent("MyForm")<>nil
и все железно работает... :)

Юрий Зотов (2002-01-29 17:21:00) [7]
procedure TMyForm.OnClose(...)
begin
Action := caFree;
MyForm := nil;
end;

И все.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »