Criando Edits em tempo de execução
Posted: terça-feira, 22 de junho de 2010 by Wesley dos Santos Elbacha in Marcadores: Delphi
0
1) Clique no botão após ter compilado o programa.
2) Serão criados 10 edits em tempo de execução após o clique no Button1.
3) Codificação do botão (Código Fonte):procedure TForm1.Button1Click(Sender: TObject);
var
V_Edit : TEdit;
i, V_Top :integer;
begin
i:= 0;
V_Top := 0;
for i:= 1 to 10 do
begin
V_Edit := TEdit.Create(Self);
V_Edit.Name := 'Edt'+IntToStr(i);
V_Edit.Top := V_Top;
V_Edit.Parent := Form1;
V_Top := V_Top + 20;
TEdit(Components[i]).Clear;
TEdit(Components[i]).Text := 'Exemplo '+IntToStr(i);
end;
end;
var
V_Edit : TEdit;
i, V_Top :integer;
begin
i:= 0;
V_Top := 0;
for i:= 1 to 10 do
begin
V_Edit := TEdit.Create(Self);
V_Edit.Name := 'Edt'+IntToStr(i);
V_Edit.Top := V_Top;
V_Edit.Parent := Form1;
V_Top := V_Top + 20;
TEdit(Components[i]).Clear;
TEdit(Components[i]).Text := 'Exemplo '+IntToStr(i);
end;
end;