weizhi(行者) :
code:
screen.Cursor :=crHourGlass;
if not assigned(frm_EquiApply) then
frm_EquiApply :=Tfrm_EquiApply.Create(self);
frm_EquiApply.showmodal;
screen.Cursor :=crDefault;
code:
screen.Cursor :=crHourGlass;
if not assigned(frm_EquiApply) then
frm_EquiApply :=Tfrm_EquiApply.Create(self);
frm_EquiApply.showmodal;
screen.Cursor :=crDefault;
assigned(frm_EquiApply) 会返回True,但是实例并不存在,在showmodal时就会报错。
可是我在程序中并没有free窗体。