Fórum Como Melhorar - tempo de Execução #288098
14/07/2005
0
begin
CriarEdit(sender);
end;
procedure TForm1.CriarEdit(Sender: TObject);
var
i: integer;
begin
i := 0;
for i:=0 to 2 do
begin
with TEdit.Create(Form1) do
begin
Name := ´demo´ + inttostr(i);
Width := 200;
Height := 20;
Top := i * height;
Left := i * 5;
Parent := Form1;
end;
end;
end;
[b:9bcbcb515f]como faço para verificar se o objeto já foi criado e assim evitar erro no clique do botão?[/b:9bcbcb515f]
Alangermano
Curtir tópico
+ 0Posts
14/07/2005
Massuda
Gostei + 0
14/07/2005
Alangermano
Gostei + 0
14/07/2005
Alangermano
veja como deixei... mais mesmo assim ainda está dando erro?
não sei se posso usar assim...
procedure TForm1.CriarEdit(Sender: TObject);
var
i: integer;
begin
i := 0;
for i:=0 to 2 do
begin
if FindComponent(´TEdit´) = NIl then
begin
with TEdit.Create(Form1) do
begin
Name := ´demo´ + inttostr(i);
Width := 200;
Height := 20;
Top := i * height;
Left := i * 5;
Parent := Form1;
end;
end;
end;
end;
Gostei + 0
17/07/2005
Yallebr
//Achou
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)