办法是通过Cookie实现。
在Loginform登陆成功后,写入Cookie相关数据
Self.Hide;
UniApplication.Cookies.SetCookie('UserName', UniMainModule.Operat_Person);
这时候正常情况下,刷新后会显示登陆页面,只需要在Longin的OnShow事件中判断Cookie就可以了,如果Cookie有效,没有过期,检查之前写入的值,代码如下。
if UniApplication.Cookies.GetCookie('UserName')<>'' then
begin
self.Hide;
Main_form := TMainForm.Create(UniApplication);
Main_form.Show;
end;