Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

окна.....окна....окна...   Найти похожие ветки 

← →
Koks   (2002-01-29 17:18) [0]

Необходимо запретить пользователю открывать более одного
экземпляра формы 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.
Результат - "форма уже открыта"...... ПОЧЕМУ !!!!
Подскажите...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c