请教!!!关于Form(0分)

  • 主题发起人 主题发起人 风中的狼
  • 开始时间 开始时间

风中的狼

Unregistered / Unconfirmed
GUEST, unregistred user!
有两个Form,一个是主Form,一个是密码窗口!
点击主Form的“更新记录”按钮时打开密码窗口!
如果密码正确,则将主Form上的所有EDIT的Readonly设为False;否则就保持True;
我想事件执行过程是这样!
1、打开Pass_Form(Pass_Form为密码窗口名)
2、输入密码,并进行校验
3、根据PASS_Form的返回值决定Tedit的ReadOnly值
但我现在不知道该怎么取得Pass_Form的返回值!
我曾在Main_Form中设了一个变量!
Var
Login:Boolean;
想在Pass_Form.Button1.Onclick事件中给它赋值!
但结果却不行!
请大家帮帮我,我该怎么做才对!
 
1、定义为public类型。在它的public里面添加
Login:Boolean;
2、实现这个功能,可以自己使用ModualResult返回值来判断,或者设置Tag值来判断,不必设置
全局变量。
 
你把FORM的BORDERSTYLE属性设置为BSDIALOG型,然后用MODALRESULT来判断就可以了
 
谢谢大家!
 
1、打开密码窗为模态窗口(pas_form.showmodal;)
2、if 检验成功 then modalresult := true;
3、判断modalresult可以设置tedit的readonly;
 
后退
顶部