Combobox lookup refresh Items

[Klaus01]

.. sieht doch eigentlich ok aus.

Delphi 11 - Windows 10 21H2

Bei zweimaligem betätigen des Buttons steht dort 1123

a) Item[1] 11
b) item{1] 112 - 11 plus Länge von '11'
c) Item[1] 1123 112 plus Länge von '112'

Grüße
Klaus

[DenkDirNix]

Ja, aber wenn Du mal die ComboBox aufklappst bei den Versuchen a bis c, dann steht dort etwas anderes (siehe Screenshot aus Beitrag #8).

[Klaus01]

ja, stimmt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items[1] := ComboBox1.Items[1] + length( ComboBox1.Items[1] ).ToString;
  Label2.Text := ComboBox1.Items[1];
  ComboBox1.ItemIndex := 1;
  comboBox1.Repaint;
end;

So sollte es funktioneren.
Nein - auch noch nicht so richtig

Grüße
Klaus

[DenkDirNix]

Ich habe das Ganze jetzt mal in den FMX-Sourcen verfolgt:

Jede TComboBox hat ein Flag für den Zustand "ItemsChanged". Dieses Flag wird beim Aufklappen der DropDownListe abgefragt (TCustomComboBox.DropDown -> TCustomComboBox.InitPicker -> TComboBoxHelper.AreItemsChanged) und bei false wird die anzuzeigende Liste nicht aus den ComboBox-Items sondern aus einer Art Cache geholt.

Dieses Flag wird aber beim Ändern eines einzelnen ComboBox-Items per Zuweisung nicht gesetzt. So entsteht die inkonsistente Anzeige beim Aufklappen der DropDown-Liste, siehe Screenshot.

Die Merkwürdigkeit, dass dieser Fehler idR erst ab der zweiten Zuweisung (zweiter Click auf den Test-Button) auftritt liegt daran, dass von der Initialisierung (Übernahme der Items aus dem FMX-Formular) her das Flag noch auf true steht. Erst mit dem ersten (und jedem weiteren) Aufklappen der DropDownListe wird es auf false gesetzt (TComboBoxHelper.SetItemsChanged).
Falls man in meinem Testprogramm vor dem ersten Button-Click schon mal die DropDown-Liste aufgemacht hat tritt der Fehler dann auch schon beim ersten Click auf.