[Resolvido] criar edits em tempo de execucao
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.
Discussão (1)
Carregando comentários...