Fórum Criar edits #351969
16/01/2008
0
olha eu precisso de ajuda...
eu quero fazer o numero de edits que estiver escrito em um no edit1.
para criar um edit eu estou usando o seguinte codigo:
procedure TForm1.Button1Click(Sender: TObject);
Var
Edit : TEdit;
begin
Edit := TEdit.Create(Form1);
with Edit do
begin
Parent := Form1;
height := 32;
width := 128;
left := (Form1.ClientWidth - width) div 2;
top := (Form1.ClientHeight - height) div 2;
end;
end;
caso naum entenda me comuniquem
Felipe_b350
Curtir tópico
+ 0Posts
16/01/2008
Leonardobhbr
Se for mensagem falando que o componente já existe falta vc atribuir o ´name´ do componente
[color=green:b83df33de4]
Edit.Name := ´Edit´ + IntTostr(i);
[/color:b83df33de4]
i seria uma variavel sequencial faça um for
Gostei + 0
16/01/2008
Felipe_b350
no meu formulario eu tenho 1 botao e um edit.
no edit eu coloco o numero 3 e quando eu clicar no botão ele ira fazer 3 edits...
valeu.... do mesmo geito
Gostei + 0
17/01/2008
Aroldo Zanela
Veja o exemplo de criação de array de componentes.
procedure TForm1.Button1Click(Sender: TObject);
var Edits: array of TEdit;
iTop, I, Qtde: Integer;
begin
// Obtem a quantidade de componentes desejado. Atribui 0 para erros de conversão
Qtde := StrToIntDef(Edit1.Text,0);
// Sai em caso de erros de conversão ou qtde menor ou igual a zero
if Qtde<=0 then Exit;
// Dimensiona a quantidade de elementos no arrays de TEdits
SetLength(Edits, Qtde);
// Topo de cada componente
iTop:= 0;
// Laço para criação dos TEdits dentro do container TScrollBox
for I := 0 to Qtde-1 do
begin
Edits[I] := TEdit.Create(Self);
Edits[I].Parent:= ScrollBox1;
Edits[I].Top:= iTop;
Edits[I].Left:= 10;
Inc(iTop, 40);
end;
end;
Gostei + 0
17/01/2008
Felipe_b350
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)