Ver Mensaje Individual
  #2  
Antiguo 24-06-2020
Esteban74 Esteban74 is offline
Miembro
 
Registrado: jun 2020
Posts: 12
Reputación: 0
Esteban74 Va por buen camino
Bueno encontre una forma que funciona parece sin problemas en android, desconozco el por que ya que aun no tengo conocimientos profundos del modelo de objetos firemonkey, cito el codigo que funciona a continuacion por si a alguien le paso anteriormente:

Código Delphi [-]
procedure TfrmPrincipal.InsertarVientos;
var
 i: integer;
 UnFrame: TfrmFrameVientos;
begin

 //Limpio la lista de vientos (Al parecer falla en Android)

 // gridVientos.ControlCollection.Clear; <<<------ Esto no parece funcionar bien 

 //Recorriendo las columnas usando DisposeOf y parece funcionar en
 //   todas las plataformas

 for i := gridVientos.ControlsCount - 1 downto 0 do
  begin
   gridVientos.ControlCollection.Controls[i,0].DisposeOf;
  end;

 // Agrego los frames al panelGridlayout inccrustado en un THorzScrollBox
 for i := 2 to 25 do
  begin
   UnFrame := TfrmFrameVientos.create(gridVientos,
                            ModuloDatos.pronosticoXhora[i].viento,
                            ModuloDatos.pronosticoXhora[i].dirViento,
                            ModuloDatos.pronosticoXhora[i].hora,
                            ModuloDatos.pronosticoXhora[i].iconViento,
                            ComboColorViento.Color);
   UnFrame.Name := 'frame' + IntToStr(i);
   UnFrame.Width := 60;
   UnFrame.Parent := gridVientos;
   gridVientos.ControlCollection.AddControl(UnFrame,-1,-1);
  end;
end;
Responder Con Cita