FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Cambiar color de la pestaña de un PageControl
Hola amigos, quiero saber si alguno de ustedes conoce alguna forma de cambiar el color de la pestaña de un PageControl.
Me explico, tengo un Form con un PageControl y tres TabSheets, pero quisiera que la pestaña de cada uno tuviera un color diferente. Alguien sabe si se podrá? Mil gracias. |
#2
|
||||
|
||||
Con el control estandar que trae delphi no se puede, salvo que reimplementes algunos de sus metodos.
Pero si buscas en torry.net encuentras controles que si ofrecen esa funcionalidad. Suerte!
__________________
Héctor Geraldino Software Engineer |
#3
|
|||
|
|||
Hola acalderonr, para lograr lo que quieres basta con que uses las propiedades y eventos del control revisa el hilo:
del foro viejo. Como en ese ejemplo todas se pintan de un color la adecuación en tu caso sería algo así como; Código:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin with PageControl1.Canvas do begin case TabIndex of 0: Brush.Color:=clblue; 1: Brush.Color:=clred; 2: Brush.Color:=clyellow; end; FillRect(Rect); end; end; |
|
|
|