PageControl

Delphi

25/10/2005

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

Abraço a todos.


Aloizio Castro

Aloizio Castro

Curtidas 0

Respostas

Brazilian-bard

Brazilian-bard

25/10/2005

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;



GOSTEI 0
Aloizio Castro

Aloizio Castro

25/10/2005

Obrigadaço....
Funcionou 100¬


GOSTEI 0
Helio Nascimento

Helio Nascimento

25/10/2005

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 ?


GOSTEI 0
Bruno Belchior

Bruno Belchior

25/10/2005

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



GOSTEI 0
Eniorm

Eniorm

25/10/2005

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,


GOSTEI 0
Michael

Michael

25/10/2005

Olá!

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

[]´s


GOSTEI 0
Eniorm

Eniorm

25/10/2005

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



oloco meu!!!!! :)


GOSTEI 0
POSTAR