ComboBox Problem

[youuu]

Ich möchte Datensätze in eine ComboBox speichern, dann jedoch den Datensatz löschen in der add function, der ausgewählt wurde (ComboBox.Text).

Läuft auch soweit alles kein Problem, nur bei dem 1. Datensatz wenn ich dann die comboBox öffne steht automatisch der 2. Eintrag in der ComboBox ohne das ich ihn ausgewählt habe.

Bsp:
1. A
2. B

A steht zuerst drin.
Klicke auf ComboBox
B steht sofort drin ohne das ich es ausgewählt habe.
klicke wieder drauf.
Kann ganz normal A auswählen.
Klicke wieder und B steht wieder sofort drin ohne ausgewählt zuhaben.


Ich hoffe man kann es nachvollziehen.

Delphi-Quellcode:

procedure TFormKunden.ComboBoxSachbearbeiterAdd(ComboBox: TJvComboBox);  // Damit die ComBoxSachbearbeiter Richtig ausgegeben werden.
Var
  zw: string; // Zwischenspeicher
  i: Integer;
Begin
  zw := ComboBox.Text;
  ComboBox.Clear;
  //------------------------------------------------------------------------------------------------------------------
  // Query zu Sachbearbeiter Login
  FormLogin.QueryLogin.SQL.Text:='SELECT `adviser_name` FROM `'+Table_Info[8,1]+'` Order by `adviser_name`';
  FormLogin.QueryLogin.Open;
  for i := 0 to StrToInt(Table_Info[8,3]) - 1 do
  Begin
    ComboBox.Items.Add(FormLogin.QueryLogin.Fields[0].Asstring);
    FormLogin.QueryLogin.Next;
  End;
  FormLogin.QueryLogin.Close;

  ComboBox.Items.Delete(ComboBox.Items.IndexOf(zw));
  ComboBox.Text := zw;
//---------------------------------------------------------------------------------------------------------------------
End;

Delphi-Quellcode:

procedure TFormKunden.ComboBoxSachbearbeiterDropDown(Sender: TObject);
begin
  ComboBoxSachbearbeiterAdd(ComboBoxSachbearbeiter);
end;

[edit=MrSpock]Linien gekürzt wegen Formatierung. Mfg, MrSpock[/edit]

[uwewo]

Zitat von youuu:

Ich hoffe man kann es nachvollziehen.

Ehrlich gesagt nein, formuliere Dein Problem doch bitte etwas klarer.

Uwe