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