Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.
Результат - "форма уже открыта"...... ПОЧЕМУ !!!!
Подскажите...



Юрий Зотов   (2002-01-29 17:21) [1]

procedure TMyForm.OnClose(...)
begin
Action := caFree;
MyForm := nil;
end;

И все.



Johnmen   (2002-01-29 17:44) [2]

А я всегда пользовался Application.FindComponent("MyForm")<>nil
и все железно работает... :)



Юрий Зотов   (2002-01-29 17:47) [3]

> Johnmen © (29.01.02 17:44)

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



Anatoly Podgoretsky   (2002-01-29 21:54) [4]

Правильнее запретить кнопку при создании (что бы пользователю неповадно было) и разрешить при закрытии. Этим достигается обратная связь.



Johnmen   (2002-01-30 09:38) [5]

>>>Юрий Зотов © :
медленнее - это типа вместо 0.1 мкс будет 10 мкс ?
:o)))))))))



Koks   (2002-01-30 12:40) [6]

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

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

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

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



Юрий Зотов   (2002-01-30 13:55) [7]

Можно и 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;




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




Наверх





Память: 0.73 MB
Время: 0.016 c
14-42847          Snake2000             2001-12-24 12:22  2002.02.14  
... а при нем задача...


6-42814           Русский               2001-11-20 20:44  2002.02.14  
Помогите.


4-42901           Anderius              2001-11-17 21:12  2002.02.14  
Как насильно завершить другую программу?


4-42890           Sour                  2001-12-16 21:00  2002.02.14  
Ресурсы


14-42856          nikols                2001-12-26 15:34  2002.02.14  
Приглашаем поговорить про CORBA и EJB.