Ir para conteúdo
Fórum Script Brasil
  • 0

Frame Criado Dinamicamente


Guest - Victor -

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...