Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как проверить, что заданная форма существует

Автор: devmstr 7.11.2004, 10:37

Как проверить, программно, что заданная форма существует(уже create, но еще не Destroy).

Автор: Alex 7.11.2004, 11:16

Код


if Assigned(Form1) then 
... {Форма существует}

Автор: <Spawn> 7.11.2004, 14:24

Только необходимо учтиывать глобальность указателей на экземпляр форм! То есть при уничтожении формы используй FreeAndNil(FormN) (либо FormN.Free; FormN := nil;), иначе Assigned вернет не то что нужно.

Автор: devmstr 7.11.2004, 16:30

Спасибо!!

Автор: p0s0l 7.11.2004, 19:39

Также можно попробовать так:

Код

for i := 0 to Screen.FormCount-1 do
    if Screen.Forms[i] is TForm1 then ShowMessage('Есть!');