Criar Objeto Através De Evento.

[Eduardo (Dudu)]

Olá.

Desejo criar um EDIT, com valor de caption, posição, e dentro de um GroupBox.

alguém aqui tem alguma experiência com isso?, me ajude por favor.

Meu objetivo é , quando pressionado botão 'x', criar edit, mas detalhe, o usuário pode pressionar o botao várias vezes, ou seja, teria que ser algum tipo de rotina infinita, sempre que pressionado exemplo: groupbox +10 height, enfim... esse não é o problema...

Problema é a Criação.

Valeu.

[Micheus]

Olá.

Desejo criar um EDIT, com valor de caption, posição, e dentro de um GroupBox.

alguém aqui tem alguma experiência com isso?, me ajude por favor.

Meu objetivo é , quando pressionado botão 'x', criar edit, mas detalhe, o usuário pode pressionar o botao várias vezes, ou seja, teria que ser algum tipo de rotina infinita, sempre que pressionado exemplo: groupbox +10 height, enfim... esse não é o problema...

Problema é a Criação.

Valeu.

Eduardo, veja se seria algo assim. Observe que o GroupBox não possui opção de Scroll, logo adicionar mais edit's do que o tamanho do group suporta, resultará em edit's escondidos. Assim, para resolver este problema e garantir que você possa adicionar edit's infinitamente, você sugiro adicionar ao GroupBox um ScrollBox, com as propriedades Align = alClient e BorderStyle = bsNone.

O que estamos fazendo é criar os Edit's tendo como Owner o GroupBox (isso facilita a nomeação dos edit's, mas poderia ser seu form - Self), e para que eles sejam mostrados dentro do GroupBox, definimos este como Parent:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TEdit.Create(GroupBox1) do
  begin
    Parent := ScrollBox1;
    Name := Format('GBEdit%d', [GroupBox1.ComponentCount +1]);
    Text := 'Edit ' +Name;
    Left := 8;
    Top := (Height +4) *GroupBox1.ComponentCount;
  end;
end;

Abraços