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
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.