取得值

bbm011 2005-02-23 04:53:24

我在panel1上面动态创建了很多个Edit,不知道他们的Name
怎样能知道其中的一个Edit的Width的值是最大的?谢谢

...全文

82 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

jinjazz 2005-02-23

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
i,m: integer;
begin
m:=0;
with panel1 do
for i := 0 to Controlcount - 1 do
begin
if Controls[i] is TEdit then
if TEdit(Controls[i]).Width>=m then
begin
m:=TEdit(Controls[i]).Width;
TEdit(Controls[i]).SetFocus;
end;
end
end;