Y
yahoo
Unregistered / Unconfirmed
GUEST, unregistred user!
东西明天要交了,才发现少了一个简单密码的密码登陆界面
请哪位大侠帮帮忙
给给代码好吗??????
万分感谢了
(还要把它在主界面运行前显示!!!!!!!)
请哪位大侠帮帮忙
给给代码好吗??????
万分感谢了
(还要把它在主界面运行前显示!!!!!!!)
procedure TformMain.FormCreate(Sender: TObject);
var
formLogon : TFormLogon; //登录窗口
begin
formLogon := TFormLogin.Create(Application);
if formLogon.ShowModal = mrCancel then
begin
formLogon.Free;
PostMessage(Handle,WM_CLOSE,0,0); //关闭主窗口
exit;
end;
//其他处理代码
formLogon.Free;
end;