Fórum PageControl #363947

15/09/2008

0

Boa Tarde!

Coloquei um TPageControl no meu form com duas TtabSheet ..

Quando eu executo o programa a tela desse PageControl fica da cor branca... porque não fica da cor original do Form?


Barrys

Barrys

Responder

Posts

15/09/2008

Janbaceiredo

Acredito pq TPageControl nao seja derivado do TForm.
Nao tenho certeza do que estou escrevendo.
Mais caso queira deixar da mesma cor do Form, adicione um Panel com sua propriedade em Aling como AlClient;

Espero ter ajudado.


Responder

Gostei + 0

16/09/2008

Barrys

Não deu certo ....

E o duro é que fica feio pra caramba cara....

Vou ter que criar um page control manualmente mesmo, se não consiguir mudar a cor...


Mas, obrigado pelo ajuda.


Responder

Gostei + 0

16/09/2008

Barrys

Olha que facil


procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.OwnerDraw:=true;
end;


esse comando faz o PageControl se controlado pelo form.

Resolvido o problema!


Responder

Gostei + 0

16/09/2008

Martins

Olha que facil procedure TForm1.FormCreate(Sender: TObject); begin PageControl1.OwnerDraw:=true; end; esse comando faz o PageControl se controlado pelo form. Resolvido o problema!


Ainda bem q vc já resolveu, mas a título de curiosidade vc estava ou está usando algum componente para deixar seu programa no estilo XP? Pq ele geralmente causa esse efeito e vc está informando q o seu controle deve herdar a cor do ancestral.

Boa sorte?


Responder

Gostei + 0

16/09/2008

Barrys

Exatamente! estou usando um Skin(pele) diferente e aparencia do XP..


Eu sou novo aqui e aparece como ´novato´ no meu profile, gostaria de saber como funciona esse progresso.


Responder

Gostei + 0

16/09/2008

Facc

Eu sou novo aqui e aparece como ´novato´ no meu profile, gostaria de saber como funciona esse progresso.


Acredito que é por tempo de cadastro no forum...


Responder

Gostei + 0

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

Aceitar