Frame Criado Dinamicamente

[Guest - Victor -]

alguém sabe como fazer um frame ser criado dinamicamente via codigo?

Procurei mas não achei nada a respeito, não sei nem se é possivel...

Obrigado

[Micheus]

Se for partindo do princípio de que você tem um Frame adicionado ao seu projeto em desing-time, então sua pergunta seria: como adicionar um frame a um form em tempo de execução?

Ex. Adicionando um frame (Frame1 no projeto) a um form ao ser pressionado um botão:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TFrame1.Create(Self) do
  begin
    Parent := Self;
    Top := 120;
    Left := 104;
    ...
  end;
end;

Ex. Removendo o frame ao pressionar outro botão:

procedure TForm1.Button3Click(Sender: TObject);
var
  Frame :TFrame;
begin
  Frame := FindComponent('Frame1') as TFrame;
  if Assigned(Frame) then
    Frame.Free;
end;

Já se for partindo do princípio de que você tem vai criar todo um frame dinamicamente, então sua pergunta seria realmente: como criar um frame dinamicamente? Ex. Ao clicar num botão, um frame e seus respectivos componentes internos são criados:

procedure TForm1.Button3Click(Sender: TObject);
var
  Frame :TFrame;
  Button :TButton;
begin
  Frame := TFrame.Create(Self);
  with Frame do
  begin
    Name := 'FrameDinamico';
    Top := 184;
    Left := 104;
  end;
  InsertControl(Frame);

  Button := TButton.Create(Frame);
  with Button do
  begin
    Caption := 'Teste';
    Top := 8;
    Left := 8;
  end;
  Frame.InsertControl(Button); // automaticamente torna Frame o Parent do Button
  ...
end;

[]s