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