Работа с объектами

← →
Виталька (2004-11-03 08:34) [0]

У меня такая проблема:
Есть класс, производный от TForm, ну вообщем моя форма.
Программа запускается и в какой то момент создает объект этого класса.
Как определить программно, существует уже объект данного класса или его еще нет?

← →
begin...end © (2004-11-03 08:44) [1]

1. Если форма создаётся с назначением Application в качестве владельца, то можно поискать в Screen.Forms.
2. Можно проверять по неравенству FormVariable <> NIL. При этом, если форма может создаваться и уничтожаться несколько раз, нужно предусмотреть присваивание FormVariable := NIL после уничтожения, или FreeAndNil().

← →
Goffman © (2004-11-03 08:55) [2]

Можно объявить переменную-счетчик
При создании экземпляра твоей формы - увеличивать значение счетчика
При уничтожении - уменьшать

← →
Виталька (2004-11-03 09:00) [3]

Во точно, забыл что в Delphi "Nil" используется, привык на C++ писать.
Спасибо огромное, все круто стало работать.

> [1] begin...end © (03.11.04 08:44)
> 1. Если форма создаётся с назначением Application в качестве
> владельца, то можно поискать в Screen.Forms.

А разве в Screen.Forms она не при любом раскладе попадает? (впрочем, не уверен...)

Работа с объектами Найти похожие ветки