MDI con Tabset
 

Hola

Quiero hacer una aplicacion con un TabSet, para poder
cambiar de forma con un click sobre el TabSet.

No me interesa usar un TPageControl. por que quiero
poder mover el TabSet, al colocarlo dentro de un Toolbar o control
semejante.

Ya casi funciona basicamente bien.
Los problemas los tengo al querer activar una forma
al hacer click en un tab del tabset, que corresponde al
TabIndex, al que tengo asociada cada forma que se crea.

Es una aplicacion MDI partiendo de la que se obtiene con delphi 7
en el menu File -> New - Other. -> en el tab Projects MDI Application

El codigo que me da problemas es el que esta en el evento
OnChange, del control Tabset, nombrado como WindowSelector

he encontrado que con este codigo debe de funcionar.

[delphi]
procedure TMainForm.windowSelectorChange(Sender: TObject);
begin
(windowSelector.Tabs.Objects[windowSelector.TabIndex] as TMDIChild).BringToFront;
end;
[delphi]

Pero a mi no me funciona me salen errores de list index out of bounce -1
cada ocasion que creo una ventana MDIChild, o hago click
en un tab del Tabset WindowSelector

Una ayuda de favor.

Gracias.

Es lo que hace el componente MDITAB.

Saludos

gracias lepe., pero el componente.
no me agrada, la presentación.

Estoy haciendo pruebas, para usar el tabset.

gracias.