Ver Mensaje Individual
  #3  
Antiguo 13-06-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

O sea, tú coges un "TPageControl" y le añades (en tiempo de diseño) tantas pestañas ("TTabSheet") como letras del alfabeto, y, ya en tiempo de ejecución, "pulsas" sobre una pestaña u otra para mostrar la "página" correspondiente... ¿y las pestañas cambian de lugar? Pues mira que es raro.

Ni siquiera si creas las pestañas en tiempo de ejecución estas "se moverán" de sitio por mucho que las pulses... El orden en que se añaden las pestañas al "PageControl" permanece así hasta que se altere programáticamente, al menos hasta donde yo llego.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  x: Char;
begin
  for x := 'A' to 'Z' do begin
    with TTabSheet.Create(PageControl1) do
    begin
      Caption := x;
      PageControl := PageControl1;
    end;
  end;
end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 13-06-2007 a las 18:39:35.
Responder Con Cita