Criar Edits dinâmicos em tempo de execução

Nesse código podemos criar vários Edits (caixas de texto) dinamicamente no formulário.
Vejamos:

private
{ Private declarations }
ArrayEdit : Array[0..9] of TEdit; //define quantidade de Edits a serem criadas

Dentro de um Button ou em qualquer outro lugar de sua preferência, coloque:

var
x : integer;
begin
for x := 0 to 9 do begin
ArrayEdit[x] := TEdit.Create(Self);
ArrayEdit[x].Parent := Self;
ArrayEdit[x].Text := 'Edit' + IntToStr(x);
ArrayEdit[x].Left := 10;
ArrayEdit[x].Top := 30 + x * 20;
end;

//Edit n° 5, mudando a cor da fonte
ArrayEdit[5].Font.Color := clBlue;

end;

************************************************************
Faça o download do arquivo: Edits Dinamico.rar
************************************************************

"Programar não significa nada;
o importante é encontrar." Pablo Picasso.

[...] Continue Lendo...