Einzelnen Beitrag anzeigen

cipher

Registriert seit: 2. Aug 2015
27 Beiträge
 
#6

AW: FMX TListBox Problem - Items verschwinden

  Alt 12. Apr 2017, 11:57
Ich habe herausgefunden, dass wenn man die ListItems nacheinander einblendet und wieder ausblendet, dann läuft alles wieder. Im direkten Vergleich der fmx-Dateien vor und nach der Änderung sind lediglich Größen und Position Angaben anders.

Hab einen Timer auf die Form gepackt, der 1 Sekunde nach Anzeige der Form losgeht und folgendes macht:

Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
  b: boolean;
begin
  Timer1.Enabled:=false;
  for i := 0 to ListBox12.Items.Count-1 do begin
    b:=ListBox12.ListItems[i].Visible;
    ListBox12.ListItems[i].Visible:=true;
    ListBox12.ListItems[i].Visible:=b;
  end;
end;
Das löst das Problem auf. Ist aber nur ein Workaround.
  Mit Zitat antworten Zitat