PageControl

Delphi

15/09/2008

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

Curtidas 0

Respostas

Janbaceiredo

Janbaceiredo

15/09/2008

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.


GOSTEI 0
Barrys

Barrys

15/09/2008

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.


GOSTEI 0
Barrys

Barrys

15/09/2008

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!


GOSTEI 0
Martins

Martins

15/09/2008

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?


GOSTEI 0
Barrys

Barrys

15/09/2008

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.


GOSTEI 0
Facc

Facc

15/09/2008

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...


GOSTEI 0
POSTAR