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]