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.
Última edición por JXJ fecha: 02-12-2008 a las 19:11:18.
|