problema al crear tabsheet

[[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 ?

[Ruben_Cu]

Hola alapaco, el código debe funcionar yo lo estructuraría de la siguiente forma:

Código Delphi [-]
procedure TF_Cita.Button2Click(Sender: TObject);
var Aux:TTabSheet;
begin
  With modulo_cita.MDOQ_Doctor do begin
        open;
        while not eof do begin
        Aux := TTabSheet.Create(self);
        with Aux do begin
              Name :=Fields[0].asstring;
              PageControl := PageControl1;
              Caption :=Fields[1].asstring;;
              //aux.Visible:=true; true es el valor de la propiedad por defecto por tanto no es necesaria la declaración
              PageControl1.ActivePageIndex := (PageControl1.PageCount - 1);
              end;
        Next;
        end;
   end;
end;

Este procedimiento debe trabajarte bien es lo mismo que tienes pero mas simplificado, no obstante debes fijarte si el query está cerrado cuando lo mandas a abrir con Open puesto que si ocurre que ya esta abierto el puntero del query está en el último registro tendrías los registros resultantes pero no te crearía ningún TabSheet en ese caso tendrías que sustituir Open por First, esto opino yo que puede ser la causa de lo que te ocurre.
Saludos