Ver Mensaje Individual
  #19  
Antiguo 04-10-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Reputación: 22
enecumene Va por buen camino
Saludos compañeros, aprovechando el hilo se me presentado un problemilla y es como eliminar los frames creados en tiempo de ejecución que están dentro de un scrollbox, hice lo siguiente:
Código Delphi [-]
procedure TFShowgen.Button3Click(Sender: TObject);
var I: Integer;
begin
for I := 0 to FMain.ScrollBox1.ComponentCount - 1 do begin
//destruye los componentes creados
FMain.ScrollBox1.Components[i].Destroy;
//
end;
FMain.ZCanciones.Close;
FMain.ZCanciones.ParamByName('ID').Value := 2;
FMain.ZCanciones.Open;
FMain.ZCanciones.First;
   While Not FMain.ZCanciones.Eof do
   begin
      with TFrame1.Create(Application) do
       begin
        Name := 'F_'+FMain.ZCancionesMA_ID.AsString;
        MuID.Caption := FMain.ZCancionesMA_ID.AsString;
        MuArtista.Caption := FMain.ZCancionesARTISTA.AsString+' - '+FMain.ZCancionesALBUM.AsString;
        Image1.Picture.LoadFromFile(FMain.ZCancionesIMAGEN.AsString);
        Parent := FMain.SCrollBox1;
        Left := 2 + (Width * (FMain.ScrollBox1.ControlCount - 1));
        Top  := 0;
       end;
       FMain.ZCanciones.Next;
  end;
end;

Pero no me funcionó, ¿alguien me da una mano?.

Saludos.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita