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

Вниз

Как программно определить, создана ли дочерняя форма ?   Найти похожие ветки 

← →
MBo   (2002-02-28 15:16) [32]

procedure TMainForm1.Button1Click(Sender: TObject);
begin
try
childform2:=tchildform2.create(application);
except
caption:="Creation Error"
end;
end;

procedure TMainForm1.Button2Click(Sender: TObject);
begin
if childform2=nil then begin caption:="It has not been created yet";exit;end;
if not (childform2 is tchildform2) then begin caption:="It is wild pointer!!!";exit;end;
caption:="OK, it exists!"
end;

---

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

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

Наверх

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