小CASE问题，散分啦！！！(10分)

Hom_lee · 2003-08-20

Tform.onCreate事件中一般写入一些初始化代码
我现在是将权限检验代码写在里面的，如果发现没有该form的权限，可不可以取消建立
该form。（进不去）
我用form.free。不行，因为form还没建好。

hooyu · 2003-08-20

写在主菜单里就行了

pjessica · 2003-08-20

project的source中写检验代码，如果没有权限则不建立form

Hom_lee · 2003-08-20

但是如果可以多处进入form(如：菜单，工具条，或其他)，就不方便了
象我上面那样就会更严格。。。。?。。
请大家继续UP!!

luckj · 2003-08-20

你可定个过程吗！点击菜单，工具条，或其他时你调用这过程如AA。
procedure aa
begin
if 判断是否建立form then
建立
else
showmessage('口令错')
end;
这不就ok了

小开ye · 2003-08-20

在窗体onActivate事件里面判断权限，没有该权限直接close。这个方法能满足你吗？

loco · 2003-08-20

onshow或onactivate事件中关闭

zjan521 · 2003-08-21

procedure TForm1.FormCreate(Sender: TObject);
begin
FreeAndNil(Form1);
end;
可以的关键是在于1.不能是主窗体你需要通知你的调用对象
简单的方法检查权限不够的时候抛出异常在创建调用的时候Try Except

wrl_001 · 2003-08-21

直接用 close会出现保护性错误

可以用 perform(wm_close,0,0);

Hom_lee · 2003-08-21

Dear zjan521:
form.oncreate(sender:tobject)
FreeAndNil(Form1);
我的form是动态创建的，没有在内存里。我试过，好象form还是显示出来了。
你能不能说的详细点。
谢谢！！！