Ayuda con PageControl

[BuenaOnda]

Hola amigos del Foro...

Junto con saludarlos quisiera que me ayudaran a resolver un problemita que tengo.Tengo un Control TPageControl el que contiene 4 TabSheets.Osea es algo asi el Diseño :

__________________________________________________
|CONTACTOS | CLIENTES |PROVEEDORES |EMPRESAS
|

El Problema es que necesito mostrar el TPageConrol en el Siguiente Orden

___________________________________________________________
|EMPRESA| CLIENTES |PROVEEDORES |EMPRESAS |PROVEEDORES
|

Osea mostrar primero el TabSheet "Empresa" antes que los otros TabSheets...

Muchas gracias por su ayuda...

[[Bicho]]

Hola,

¿Has probado la propiedad Pageindex de cada Tabsheet?
Osea tienes esto:

Código Delphi [-]
TabSheet1.Caption := 'CONTACTOS';
TabSheet1.PageIndex := 0; //Se genera por defecto, cada vez que añades una, la nueva se incremente el indice

TabSheet2.Caption := 'CLIENTES';
TabSheet2.PageIndex := 1;

TabSheet3.Caption := 'PROVEEDORES';
TabSheet3.PageIndex := 2;

TabSheet4.Caption := 'EMPRESAS';
TabSheet4.PageIndex := 3;

//Si quieres visualizar empresas en primer lugar, basta que hagas:
TabSheet4.PageIndex := 0 //Tabsheet4 es Empresas y le das el indice 0, el primero, las demás se incrementarán en uno manteniendo su orden.

Saludos

[BuenaOnda]

Muchas gracias he resuelto mi problema, gracias por ayudarme.

[Cañones]

Gracias. No lo podía resolver en tiempo de diseño. Así que agregue el código para ordenarlos en el onCreate.
Saludos.