creacion objetos

[MOCOSO07]

hola amigos buen dia!!

necesito crear unos label's y checkbox dependiendo de la cantidad de valores que me arroje una consulta como puedo hacerle?? uso delphi 5

gracias por su ayuda de antemano

[Nati1]

En el wiki del club hay varios artículos que hablan de como crear componentes en tiempo de ejecución.
Una vez que lo tengas claro, seria bueno que explicaras la manera en que quieres crearlos, solo mencionas que con una consulta, esta puede ser de muchas formas, incluyendo sql.

[MOCOSO07]

hola buen dia nati1 y todos los que lean mi mensaje estuve checando el wiky y efectivamente existe el articulo, solo que no funciona la descarga

http://wiki.clubdelphi.com/wiki/index.php/Tutorial_como_crear_Componentes_en_Delphi_en_Tiempo_de_Ejecuci%C3%B3n_(Ejemplo_Visual%2C_Wink)

que puedo hacer??

gracias por su apoyo

[[Caral]]

Hola
Efectivamente se desactivaron los link, desconozco la razón.
Saludos

[MOCOSO07]

hola amigos ya pude crear el componente que queria

ahora quiero saber si hay forma de eliminarlo??

este es el codigo que use para crearlo

Código Delphi [-]
  frm_DataModule.qry_revMaterias.Close;
  frm_DataModule.qry_revMaterias.SQL.Clear;
  frm_DataModule.qry_revMaterias.SQL.Add('Select Nombre_materia, id_materia');
  frm_DataModule.qry_revMaterias.SQL.Add('FROM MATERIA');
  frm_DataModule.qry_revMaterias.SQL.add('WHERE PLAN_ESTUDIOS = '+QuotedStr(cmb_plan.Text)+' AND  NUCLEO_FORMACION = "TRONCO COMUN" or clave_AA = '+QuotedStr(VarToStr(combo_AA.KeyValue))+' order by id_materia');
  frm_DataModule.qry_revMaterias.SQL.Text;
  frm_DataModule.qry_revMaterias.Open;
  frm_DataModule.qry_revMaterias.FetchAll;

  altura  := 281;
  altura1 := 281;
  bandera := 1;
 while not frm_DataModule.qry_revMaterias.Eof do
 begin
    if altura < 634 then
    begin
    Tpanel.Create(Self);
    etiqueta := tlabel.Create(Self);
    etiqueta.Parent := Self;
    etiqueta.Width := 99 ;
    etiqueta.Left := 24 ;
    etiqueta.Top := altura ;
    etiqueta.Caption := frm_DataModule.qry_revMaterias.Fields[0].AsString;

    edit := tedit.Create(Self);
    edit.Parent := Self;
    edit.Width := 99 ;
    edit.Left := 250 ;
    edit.Top := altura ;
    edit.Width := 24;
    edit.Height := 15;
    edit.Name := 'e' + frm_DataModule.qry_revMaterias.Fields[1].AsString;
    edit.Text := '';
    altura := altura + 16;
    end
    else
    begin

    etiqueta := Tlabel.Create(Self);
    etiqueta.Parent := Self;
    etiqueta.Width := 99 ;
    etiqueta.Left := 304 ;
    etiqueta.Top := altura1 ;
    etiqueta.Caption := frm_DataModule.qry_revMaterias.Fields[0].AsString;

    edit := tedit.Create(Self);
    edit.Parent := Self;
    edit.Width := 99 ;
    edit.Left := 580 ;
    edit.Top := altura1 ;
    edit.Width := 24;
    edit.Height := 15;
    edit.Name := 'e' + frm_DataModule.qry_revMaterias.Fields[1].AsString;
    edit.Text := '';

    altura1 := altura1 + 16;
    end;
    frm_DataModule.qry_revMaterias.Next;
 end;
 end;

bueno lo queria hacer era una consulta q dependiendo del plan de estudios el nucleo de formacion y el area me mandara la lista de materias que el alumno iba a cursar que es el codigo anterior

quiero saber como eliminar por que...

necesito saber como borrarlos para volver a cargar nuevamente componentes en determinado caso que el usuario quiera hacer una consulta con otro plan u otra area

espero y me haya explicado, como anteriormente dije estoy usando delphi 5
gracias por su atencion