Bom dia Carlos Alberto... Muito bom este esquema que vc conseguiu... Ainda bem que vc descobriu como faz, legal... Olha só, vc não sabe a função da propriedade font do object inspector, tem a função de deixar a cor padrão na tabsheet sendo a cor que vc escolhe nesta propriedade, se vc colocar azul, a cor da fonte de todos os objetos dentro desta tabsheet será azul, entendeu? -Simple... rs
PS: Até eu vou usar o esquema que vc achou na intenet, interessante... Um Abraço. Cleber. --- Em delphi-br@yahoogrupos.com.br, "Carlos Alberto Machado" <[EMAIL PROTECTED]> escreveu > Em primeiro lugar obrigado pelo retorno > > Na internet encontrei a saída. Usando os seguintes códigos > > procedure TForm1.Button1Click(Sender: TObject); > begin > PageControl1.OwnerDraw := True; > PageControl1.Canvas.Brush.Color := clBtnFace; > PageControl1.Canvas.Font.Color := clSilver; > PageControl1.Canvas.TextOut(8, 5, PageControl1.Pages[0].Caption); > end; > > procedure TForm1.Button2Click(Sender: TObject); > begin > PageControl1.OwnerDraw := False; > end; > > Porem ainda não sei a função da Propriedade Font da classe TTabSheet que se > encontra no Object Inspector > > > > ----- Original Message ----- > From: "Cleber Edson Lino" <[EMAIL PROTECTED]> > To: <delphi-br@yahoogrupos.com.br> > Sent: Tuesday, April 26, 2005 11:29 AM > Subject: [delphi-br] Re: TabSeet > > > > > Bom dia, Carlos Alberto... > Bom, você vai ter muita dificuldade para fazer isto, porque no > Object Inspector realmente não tem opção para isto, tem que ver se a > classe TPageControl tem esta propriedade, então vc pode fazer o > seguinte, ou entrar no help e pesquisar sobre Ele para ver se tem > esta propriedade, ou na unit em qualquer method vc escrever o nome > do pagecontrol e colocar . e esperar abrir a caixa de opções para > vc ver se tem alguma neste sentido, ok? > > Um Abraço. > > Cleber. > > --- Em delphi-br@yahoogrupos.com.br, "Carlos Alberto Machado" > <[EMAIL PROTECTED]> escreveu > > Bom dia > > > > Uso Delphi 5 > > > > Coloquei um TPageControl em um Form. Neste TPageControl coloquei > varias TTabSheet. Quero colocar os Caption destas TTabSeet em > vermelho mas não estou conseguindo. > > > > Coloquei > > Caption : Vermellho > > Font.Color: Vermelho > > nas propriedades > > > > Mesmo na programação nao estou conseguindo > > > > TabSheet1.Font.Color := clRed; > > > > Alguma dica? > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/4/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html