VPF::проверить открыта\создана ли форма

WERITAS

Дата 27.4.2007, 19:37 (ссылка)

(нет голосов)

Загрузка ...

********

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 2.5.2005
Где: Москва

Репутация: нет
Всего: 5

САБЖ. Как проверить открыта ли форма и создана ли форма (availables) smile

--------------------

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

Sunvas

Дата 27.4.2007, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(WERITAS @ 27.4.2007, 19:37

)

открыта ли форма

iswindowvisible

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Alexeis

Дата 27.4.2007, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Так присвоить изначально всем формам nil, а потом проверять значение переменной формы на nil, если nil значит не создана, иначе создана.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Akella

Дата 28.4.2007, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Код

if Assigned(fmMain)

но при закрытии форм лучше закрывать их так

Код

FreeAndNil(fmMain)

или так:

Код


procedure TfmOfficesAdd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

Код


procedure TfmDataConstr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fmDataConstr := nil;
  Action := caFree;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »