Ja, verstehe nicht?
Debug-DCUs an und in die FMX debuggt?
Code:
FMX.ListBox.TCustomListBox.Clear
FMX.ListBox.TCustomListBox.TListBoxStrings.Clear
Delphi-Quellcode:
procedure TCustomListBox.Clear;
begin
BeginUpdate;
try
RealignContent;
FToInflate.Clear;
if Content <> nil then
Content.DeleteChildren;
FGroups.Clear;
SelectionController.SetCurrent(-1);
finally
EndUpdate;
end;
end;
Hängt das an der RealignContent?
SelectionController.SetCurrent(-1);?
Dauert es lange im EndUpdate?
Lasst euch doch nicht immer alles aus der Nase ziehen.
Mal so ein bisschen Eigeninitiative zeigen.
Am Ende ist es wieder so ein:
"Hey, ich habe die 127 anstehenden Windows-Updates durchinstalliert und nach 43 Monaten mal neugestartet, jetzt ist wieder alles gut!"
Komm, sei nett und frickle uns ein kleines Beispielprojekt zusammen.
Formular, Combobox, ein Button zum Löschen. Projekt zippen und hochladen.