In der Combobox sind 2 items. Ok Präzisierung: Wenn ich ein item auswähle dann ist itemindex aktuell aber wenn ich dann schrott eingebe dann ist der immer noch auf Null oder eins.
Edit: nach dem zweiten Schrotteingeben ist dann wieder alles ok. Das heißt der erste Buchstabe ist noch weiß und erst beim zweiten wirds rot
Gut nur um Fehlern vorzubeugen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| procedure TForm5.ComboBox3Change(Sender: TObject); begin if combobox3.ItemIndex=1 then begin combobox3.Color:=clwindow; combobox4.Enabled:=true; end else if combobox3.ItemIndex=0 then begin combobox3.Color:=clwindow; combobox4.Enabled:=false; end else begin combobox3.Color:=clred; combobox4.Enabled:=false; end; end; |