Delphi实现自动切换输入法
begin
if (UserNameEdt.text=′陈理辉′) and (PasswordEdt.TExt=′student′) then
begin
ShowMessage(′密码正确，登录成功!′);
Application.Terminate;
End
Else
ShowMessage(′密码错误，请再试。′);
end;
放入一个 TButton 构件，设置为
Caption 取消(&C)
Name CancelBtn
双击该构件加入如下代码：
procedure TLoginForm.CancelBtnClick(Sender:TObject);
begin
Application.Terminate;
end;
7.将Project存为Login.dpr,将LoginForm设为主窗口(点Project|Options,选Forms标签页,点Main Form下拉框，选LoginForm,按Ok)，按F9运行。
