Fórum PageControl #300678

25/10/2005

0

Delphi

Pessoal... direto ao assunto.
Como Adicionar/Excluir TabSheet a um PageControl em RunTime???

Abraço a todos.


Aloizio Castro

Aloizio Castro

Responder

Posts

25/10/2005

Brazilian-bard

Use o código abaixo

procedure TForm1.btnAdicionarClick(Sender: TObject);
var Tab: TTabSheet;
begin
   Tab              := TTabSheet.Create(PageControl1);
   Tab.Parent       := PageControl1;
   Tab.PageControl  := PageControl1;
end;

procedure TForm1.btnApagarClick(Sender: TObject);
var Tab: TTabSheet;
begin
   Tab := PageControl1.ActivePage;

   if Assigned(Tab) then
   begin
      Tab.Parent := nil;
      Tab.PageControl := nil;

      FreeAndNil(Tab);
   end;
end;



Responder

Gostei + 0

25/10/2005

Aloizio Castro

Obrigadaço....
Funcionou 100¬


Responder

Gostei + 0

26/10/2005

Helio Nascimento

Pessoal utilizando este mesmo assunto, pergunto à comunidade se tem alguma forma de fazer uma reordenação das tab sheets. Voce tem um Page Control e vai adicionando abas, porém lá na frente voce ve a necessidade de colocar como aba 1 um complemento de endereço por exemplo, mas qdo. vc coloca uma nova aba ela ja esteja como 4 , como fazer para ´enfiar´ esta numero 4 no lugar da numero 1. Tem como ?


Responder

Gostei + 0

26/10/2005

Bruno Belchior 

with TTabSheet.Create(PageControl1) do
begin
   Parent := PageControl1;
   PageControl := PageControl1;
   PageIndex := 0; // Esta linha...
end;



Responder

Gostei + 0

29/10/2005

Eniorm

aproveitando o embalo.....

qdo eu crio um PageControl com muitas abas, eu notei que aparece no canto direito do PageControl um botão para movimentar entre os Tabs que estão escondidos.

No entanto eu estou procurando uma forma de tornar o PageControl igual no Windows que divide uma sequencia de Tabs numa linha acima e noutra abaixo,

mas até agora não vi nada desse tipo, também não sei se tem alguma propriedade do PageControl que ativa esse recurso.......

abraço,


Responder

Gostei + 0

31/10/2005

Michael

Olá!

É só setar para True a propriedade [b:05a79ee65b]MultiLine [/b:05a79ee65b]do PageControl.

[]´s


Responder

Gostei + 0

31/10/2005

Eniorm

Olá! É só setar para True a propriedade [b:9d6ea9aefe]MultiLine [/b:9d6ea9aefe]do PageControl. []´s



oloco meu!!!!! :)


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar