有关窗体,隐藏的问题多个小问题!!!(15分)

  • 主题发起人 主题发起人 attar
  • 开始时间 开始时间
A

attar

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟正在编写一个程序,运行在客户端,要有登陆界面和监控部分!!!
如何实现出现登陆界面后,不让监控端的界面运行?
是不是要两个程序?一个登陆,一个监控?
如果是的话,怎么让一登录完了,就运行监控?
隐藏部分我已经会了,通过语句和第三方空件实现,大家不用解答了!
其实我编写的就是机房管理的客户端,谁有好的主意?
小弟新手,也没分了,多谢大侠回答!!!
急急急!!!
 
在件控程序的工程文件里面在监控程序主窗体建立以后建立登陆界面并显示,然后做你监控
程序的处理,即ok。
在工程文件里面处理下面的
监控主窗体.create;
登陆界面.create;
登陆界面.onshowmode;
登陆界面.free;
 
怎么看工程文件?
如何加Program XXX 我只能看到Unit1等!!!
急!!!
 
在project菜单下有一个view source项,点这个就可以看到工程文件了。
 
要看工程文件,
在view->units點擊,
彈出窗口,點選工程文件即可。
工程文件就出現了。
 
请回答我的主要问题!!!
 
mainform主程序窗体,passform登录窗体
passok变量用来判断是否正确登录
procedure TmainForm.FormCreate(Sender: TObject);
begin
passform:=Tpassform.Create(nil);
passform.ShowModal;
passform.free;
if passok=0 then begin
OnClose:=nil;
PostMessage(Handle, WM_CLOSE, 0, 0);
Exit;
end;
end;
 
请问:
我把Passok放到哪里呀?
 
passok定义为一个全局变量,可以在另一个单元中定义
我程序中用到passok这个变量是因为具有不同权限的人,看到的监视画面是不一样的
如果为0是表示登录错误
 
在登陆窗体检测过“登陆信息”的合法性之后,关闭(隐藏)登陆窗体,开启监控端,
可以参照飞溅屏的调用方法
 
我关闭第一个窗体,怎么就退出程序了?
隐藏好么?有没有副作用?
 
多人接受答案了。
 
后退
顶部