关于光标的问题

Question

onexit事件中判断,
不对则edit1.setfocus

Answer 1

你的要求有些过分哦，当心用户不高兴；
不过还是可以实现啊
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  try
    strtoint(Edit1.Text)
  except
    showmessage('no');
    Edit1.SetFocus;
  end;
end;

Answer 2

提示﹕procedure TFrmMain.DBedtEmpyIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = VK_Return then
    begin
        if Trim(DBedtEmpyID.Text) = '' then
        begin
            DBedtEmpyID.Perform(WM_LButtonDown, 0, 0);
            DBedtEmpyID.Perform(WM_LButtonUp, 0, 0);
        end
        else begin
            DBedtEnname.Perform(WM_LButtonDown, 0, 0);
            DBedtEnname.Perform(WM_LButtonUp, 0, 0);
        end;
    end;
end;

Answer 3

re:neilwq(qw),yansea(思宏)用setfocus不能解决问题

Answer 4

我用的是yansea(思宏)那种 方法。