GARANTIR DESCONTO

Fórum Criar TabSheet em RunTime #237811

15/06/2004

0

Delphi

Olá pessoal,

estou com o seguinte problema: tenho um pagecontrol e preciso criar obrigatoriamente as TabSheets em tempo de execução pois não sei o número de tabs que vou precisar. Resumindo: quando vc clica com o botao direito sobre o pagecontrol existe a opcao ´New Page´. É essa opcão que eu quero em Run-Time.


Tatuweb

Tatuweb

Responder

Posts

15/06/2004

Xanatos

Bom TAtuWeb eu tive o mesmo problema! em um sistema eu tive que criar dinamicamente as TabSheet como voce!! mas como eu nao conseguie e o numero era variavel !!! eu coloquei umas 12 que era o numero máximo que eu podia ter! mas nao ficou legal e ai eu acabei usando o TTabControl que me saiu bem melhor!!! consegui criar tudo dinamicamente!! ficou massa!!!


Experimente usar ele!!! :idea:


Responder

Gostei + 0

15/06/2004

Fabio.hc

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
var NewTabSheet:TTabSheet;
begin
   NewTabSheet := TTabSheet.Create(PageControl1);
   NewTabSheet.PageControl := PageControl1;
   NewTabSheet.Caption:=´nome do TabSheet´;
end;



Responder

Gostei + 0

15/06/2004

Xanatos

Boa! :lol:


Responder

Gostei + 0

16/06/2004

Tatuweb

Valeu pela ajuda Fabio e Xanatos. Eu nem notei a existencia da propriedade PageControl do TabSheet. :D


Responder

Gostei + 0

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

Aceitar