彩色年华 发表于 2014-4-15 19:10:04

新手求助,Edit1.SetFocus;的使用问题

本帖最后由 彩色年华 于 2014-4-15 19:11 编辑

procedure TForm1.Button1Click(Sender: TObject);
Var
   i,j:integer;

begin
   j:=0;
   i:=strtoint(Edit1.Text );
   Whilei>0do
   begin
      j:=j+i;
      i:=i-1;
   end;
       Label4.Caption :=inttostr(j);
end;
   Edit1.SetFocus;
end.

彩色年华 发表于 2014-4-15 19:15:42

我想在每次计算后,光标都聚焦在Edit1处,请教高手改怎么改?
(上面的代码是点击”计算“后的)

comeheres 发表于 2014-4-15 20:17:44

点击“计算”后 和 每次计算后 有什么区别?

595835881 发表于 2014-5-12 11:53:37

你的Edit1.SetFocus;都写到程序外面去了,你把这句代码写到‘end;’之前就可以了
像这样
procedure TForm1.Button1Click(Sender: TObject);
Var
   i,j:integer;

begin
   j:=0;
   i:=strtoint(Edit1.Text );
   Whilei>0do
   begin
      j:=j+i;
      i:=i-1;
   end;
       Label4.Caption :=inttostr(j);
Edit1.SetFocus;
end;
end.

页: [1]
查看完整版本: 新手求助,Edit1.SetFocus;的使用问题