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(
"您是第一次使用本軟件，您可以隨便輸入用戶名和口令。",
"系統(tǒng)提示",
MB_OK + MB_ICONINFORMATION);
end;
end;本新聞共 2頁(yè),當(dāng)前在第 2頁(yè) 1 2 |
