爱
爱上猫的鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
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的意思和用法
var qry: TADOQuery;
begin
if mmo1.Text = '' then
begin
Alert('请选择问题!');
if cb1.CanFocus then
cb1.SetFocus;
Exit;
end;
解释一下CanFocus和SetFocus的意思和用法