ActiveDelphi

an.der.son · Enviada: Ter Out 25, 2005 2:49 pm Assunto: PageControl

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

Abraço a todos.
_________________
Estou de volta!!!

Sufolk · Enviada: Ter Out 25, 2005 3:10 pm Assunto: PageControl

Experimente:
var
TabSheet2 : TTabSheet;
begin
TabSheet2 := TTabSheet.Create(PageControl1);
TabSheet2.PageControl := PageControl1;

an.der.son · Enviada: Ter Out 25, 2005 3:15 pm Assunto: PageControl

[quote]Experimente:
var
TabSheet2 : TTabSheet;
begin
TabSheet2 := TTabSheet.Create(PageControl1);
TabSheet2.PageControl := PageControl1;
[/quote]

Ok, funcionou perfeitamente....
E para excluir?
Vc tem o código?
_________________
Estou de volta!!!

adriano_servitec · Enviada: Ter Out 25, 2005 3:17 pm Assunto: PageControl

Ola Anderson blz, eu vi algo sobre isso nesse post aqui

http://www.activedelphi.com.br//modules.php?op=modload&name=XForum&file=viewthread&fid=4&tid=8502&orderdate=DESC
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

Sufolk · Enviada: Ter Out 25, 2005 3:22 pm Assunto: PageControl

Você pode fazer assim:
PageControl1.Pages[0].Free;
ou procurar a page certa

an.der.son · Enviada: Ter Out 25, 2005 3:29 pm Assunto: PageControl

Vlw a dica galera...
Segue o codigo utilizado para excluia uma tab

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;

Abraços
_________________
Estou de volta!!!