建立如下下图的登录窗体，用户名及口令输入正确并按下OK按钮显示登录成功对话框，否则显示登录不成功对话框；按Cancel按钮清除两个输入框内容并把焦点放在第一个输入框中。无标题.png所有控件不需要更改名称，确定按钮事件为：procedure TForm1.Button1Click(Sender: TObject);取消按钮事件为：procedure TForm1.Button2Click(Sender: TObject);