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

TabSheet na PagControl do Delphi 2010


Ronaldo Lanhellas

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0
botão direito na pagcontrol e "New Page", porem no delphi 2010 não encontro a opção new page.

Deveria ser da mesma maneira .... entretanto se não estiver conseguindo tente este código

ele vai adicionar novos TabSheets a cada clique do botão dentro de um PageControl

OBS: em um Form coloque um botão e um PageControl e faça o teste

var
  Form1: TForm1;
  i : integer = 0;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   aForm : TForm1;
   tabSheet : TTabSheet;
begin
   inc(i);
   //Cria um novo  tabsheet
   tabSheet := TTabSheet.Create(PageControl1);
   tabSheet.PageControl := PageControl1;

   //Cria o Form
   aForm := TForm1.Create(tabSheet);
   aForm.Parent := tabSheet;
   aForm.Align := alClient;
   aForm.BorderStyle := bsNone;
   aForm.Visible := true;
   tabSheet.Caption := 'Página '+inttostr(i);

   //Ativa o tabsheet
   PageControl1.ActivePage := tabSheet;
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
mais ae vem a dúvida, porque no meu delphi 2010 não tem a opção NEW PAGE, para q eu possa adicionar um TabSheet

Isso pode ser bug de versão ... veja se existe alguma atualização para o delphi 2010. Se não existir tente reinstalar novamente o delphi

abraço

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,5k
×
×
  • Criar Novo...