新手求助,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.
我想在每次计算后,光标都聚焦在Edit1处,请教高手改怎么改?
(上面的代码是点击”计算“后的) 点击“计算”后 和 每次计算后 有什么区别? 你的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]