MB_OK + MB_ICONINFORMATION);
edituser.setfocus ;
exit;
end;
end;
file://全局变量
GB_Wsz_User := suser;
GB_Wsz_PASS := spass;
Close;
end;
file://窗体的Show事件
procedure TWszLoginForm.FormShow(Sender: TObject);
begin
if Wsz_IfFirst then
begin
Application.MessageBox(
"您是第一次使用本软件，您可以随便输入用户名和口令。",
"系统提示",
MB_OK + MB_ICONINFORMATION);
end;
end; |
