新手求助，Edit1.SetFocus；的使用问题

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

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

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

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

begin
j:=0;
i:=strtoint(Edit1.Text );
While  i>0  do
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 );
While  i>0  do
begin
      j:=j+i;
      i:=i-1;
end;
   Label4.Caption :=inttostr(j);
Edit1.SetFocus;
end;
end.

账号		自动登录	找回密码
密码			立即注册