看一下，简单 ( 积分: 10 )

procedure TF_AboutBox.btn1Click(Sender: TObject);
var qry: TADOQuery;
begin
if mmo1.Text = '' then
begin
Alert('请选择问题！');
if cb1.CanFocus then
cb1.SetFocus;
Exit;
end;
帮忙给解释一下CanFocus和SetFocus的意思及用法

cb1大概是个checkbox吧
if cb1.CanFocus then//如果能够对cb1设置焦点(能否对cb1设置焦点请看帮助)
cb1.SetFocus;//则设置cb1焦点

接受答案了.