problema al crear tabsheet

[Choclito]

hola amigos del foro mi problema es el siguiente:
En tiempo de ejecucion quiero crear n tabshet que la creacion sea la cantidad de registros de un query
el codigo en el oncreate del form es el siguiente

Código Delphi [-]
while modulo_cita.MDOQ_Doctor.Eof do
begin
 Aux := TTabSheet.Create(self);
     Aux.Name := modulo_cita.MDOQ_Doctor.Fields[0].asstring;
     Aux.PageControl := f_cita.PageControl1;
     Aux.Caption := modulo_cita.MDOQ_Doctor.Fields[1].asstring;;
     aux.Visible:=true;
     f_cita.PageControl1.ActivePageIndex := (f_cita.PageControl1.PageCount - 1);
     modulo_cita.MDOQ_Doctor.Next;
end;

pero no hace nada... quiero q en cada tabsheet este el nombre del doctor pero no hace nada no crea ni un tabsheet, quiero crear n tabsheet pero no hace nada , como arreglo esto?????
como siempre les estare muy agradecido por su valiosa ayudaaaaaa

[alapaco]

El código parece funcionar...
Estas seguro que el query MDOQ_Doctor trae datos ???

[Choclito]

muchas gracias por la respuesta pero te cuento q el query trae datos pues coloque un dblookcombobox y ahi me muestra ,cual puede ser otra forma de hacer esto , me explico mejor.. tengo un query con datos de los doctores nombres y codigo, lo que quiero es q en cada tabsheet del page control este los nombres de los doctores registrados , todo esto con el fin de mostrar luego las citas de pacientes por doctor
les estare muy agradecido por las respuestas

[alapaco]

Insisto, probé el código y me funcionó.

Esta línea:
f_cita.PageControl1.ActivePageIndex := (f_cita.PageControl1.PageCount - 1);
podría ponerse fuera del while. (igual no es el problema por el cual no se muestra nada.)

Podrías copiar TODO el código (incluyendo lo que está arriba y abajo del while ??

[Choclito]

te cuento q ahora probe en un boton q puse en el form y tampoco no da
el codigo es el siguiente:

Código Delphi [-]
procedure TF_Cita.Button2Click(Sender: TObject);
var Aux:TTabSheet;
begin
modulo_cita.MDOQ_Doctor.Open;
while modulo_cita.MDOQ_Doctor.Eof of
begin
 Aux := TTabSheet.Create(self);
     Aux.Name :=modulo_cita.MDOQ_Doctor.Fields[0].asstring;
     Aux.PageControl := PageControl1;
     Aux.Caption :=modulo_cita.MDOQ_Doctor.Fields[1].asstring;;
     aux.Visible:=true;
     PageControl1.ActivePageIndex := (PageControl1.PageCount - 1);
     modulo_cita.MDOQ_Doctor.Next;
end;
end;

hay otra forma de hacer ??? te estare agradecido por tu ayuda

[alapaco]

Pusiste un punto de control en la linea:
Aux := TTabSheet.Create(self);

Y pasó por ahí ??

[[Lepe]]

Creo que te falta:

Aux.Parent := Pagecontrol1

Realmente no he mirado Aux.Pagecontrol := Pagecontrol1 qué es lo que hace, pero creo que es Parent la que debes tocar.

SAludos

[Choclito]

les cuento q en el form coloque un lookcombobox y muestra los datos del query luego tambien coloque
Aux.Parent := Pagecontrol1;
pero tampco da .... pense q el problema en el while, asi q utilice un for del 1 al 5 y me crea los tabsheet. la verdad nose donde estoy errando para q no pueda crear los tabsheet con los datos del query
gracias por la ayuda amigos del foro

[alapaco]

Repito, pusiste un punto de control sobre la primer linea que esta dentro del while ??

Debugueaste el while ?