[Resolvido] criar edits em tempo de execucao

[Marcelo_Ribeiro 0]

e aí. eu consegui criar varios edits em tempo de execucao.

 

Mas como eu faço pra pegar o q o cara escreveu neles?

 

Eu to fazendo assim:

 

procedure TForm1.Button1Click(Sender: TObject);

var Edt: TEdit;

begin

Edt := TEdit.Create(Form1);

with Edt do begin

flag := flag +1;

num := num + 1;

Parent := Form1;

Height := 21;

Left := 20;

if flag = 1 then

Top := 16

else

Top := (16*flag)+8;

Width := 221;

Name := 'Edit'+inttostr(num);

Text := '';

end;

end;

 

tem alguma funcao pra isso?

Nao sei qtos o usuario vai criar, pode ser 1, 2, 3, 10.

[Marcelo_Ribeiro 0]

opa, resolvido...

 

me explicaram aqui..

 

vlw