ComboBox Einträge editieren

[fatalerror]

Zitat von Chemiker:

Hallo DeddyH,

Zitat von DeddyH:

Das wäre mir aber neu. Count gibt die Anzahl der Elemente zurück, d.h. ein Count > 0 heißt mindestens ein Element vorhanden.

Nochmal zur Klärung:

Count = 0 erster Eintrag
Count = 1 zweiter Eintrag

Wenn Count > 0 // sollte Count mindestens 1 sein um die Bedienung zu erfüllen, oder?

Bis bald Chemiker

Ich hoffe du verstehst selbst, dass deine Aussage nicht korrekt sein kann. Count heisst "zähle" Wenn es keinen Eintrag in der Liste hat, dann ergibt count auch 0.

Zum besseren Verständnis:

Delphi-Quellcode:

//Kein Eintrag in der Liste
combobox1.Items.Clear;
showmessage(inttostr(combobox1.Items.Count));


//4 Einträge zur Liste hinzufügen
for i:= 0 to 3 do
  combobox1.items.add('test-'+inttostr(i));

showmessage(inttostr(combobox1.Items.Count));

[DeddyH]

Probier doch einfach meine überarbeitete Version aus und beobachte die Werte im Debugger

[Chemiker]

Hallo,

ja, ich gebe zu ich habe Count und Index gleichgesetzt, ohne zu prüfen ob meine Aussage richtig ist.

Im ersten Quellcode von DeddyH schien es so, als wenn der letzte Eintrag nicht gelöscht worden wäre. Dies ist aber nicht richtig, sondern es ist nur der ComboBox.Text stehen geblieben.

Bis bald Chemiker

[Chemiker]

Hallo,

nochmal eine Frage. Das neue Item wird erst mit ENTER übernommen, wenn zuvor die ComboBox mit der Maus aufgeklappt worden ist, trotzdem im OI AutoDropDown := TRUE ist. Wie kann man das Verhalten ändern, so dass die Eingabe direkt nach ENTER drücken übernommen wird?

Bis bald Chemiker

[DeddyH]

Zitat von Chemiker:

Das neue Item wird erst mit ENTER übernommen, wenn zuvor die ComboBox mit der Maus aufgeklappt worden ist, ...

Das kann ich hier nicht nachvollziehen. Wie ist die ComboBox denn genau eingestellt (OI)?

[Chemiker]

Hallo DeddyH,
So sind zurzeit die Einstellungen:

Delphi-Quellcode:

object cBoxServername: TComboBox
      Left = 127
      Top = 36
      Width = 145
      Height = 22
      AutoComplete = False
      AutoDropDown = True
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 1
      Text = 'localhost'
      OnKeyDown = cBoxServernameKeyDown
      OnKeyPress = cBoxServernameKeyPress
      Items.Strings = (
        'localhost')
    end

Bis bald Chemiker