News & Events
Dica: Colorindo o PageControl
- 17 de outubro de 2008
- Posted by: Adriano Santos
- Category: delphi delphi tour delphi-br delphi2006 delphi2007 delphi2009
Nenhum comentário
Difficulty level not set for this Post
Olá pessoal,
O colega Fabio Giro me mandou essa dica e achei bastante interessante. Inclua um PageControl no formulário e nele insira 3 TabSheets. Modifique a propriedade OwnerDraw para True e codifique o evento DrawTab como na listagem abaixo:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; |
Listagem 1. Código do evento DrawTab
Vejas as Figuras:
Adriano Santos
Director X-35 Consulting and Development
IT Manager SoftPark
Chief Editor Magazines ClubeDelphi && WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
www.dug-sp.com
Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.
Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.
Siga também o autor @asrsantos
![foto](http://www.tdevrocks.com.br/wp-content/uploads/2016/11/adriano-santos.png)
Author: Adriano Santos
Adriano Santos é especialista em linguagens de desenvolvimento, Embarcadero MVP, possui +1000 artigos e vídeo-aulas publicadas em revistas e websites especializados, ex-editor chefe das revistas ClubeDelphi e WebMobile. Atualmente Diretor de Operações na startup GET IT! Technology e Consultor Senior na Embarcadero do Brasil.