Hallo DaddyH,
hatte den Quellcode erst grade gesehen. Hatte heute Morgen das Event nach Deiner Empfehlung von gestern noch mal Überarbeitet. Abweichend zu Deiner Lösung werden keine Leerzeichen in die String-Liste übernommen und man kann auch den letzten Eintrag löschen. Habe zusätzlich AutoComplete auf FLASE gesetzt, damit können die vorhanden Einträge besser bearbeitet werden.
Delphi-Quellcode:
procedure TfrmMainDB_Eigenschaften.cBoxServernameKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
// Leer Zeichen nicht in die Liste übernehmen.
if ((cBoxServername.Items.IndexOf(cBoxServername.Text) = -1) and
(not (Trim(cBoxServername.Text) = ''))) then
begin
cBoxServername.Items.Add(cBoxServername.Text);
end;
end;
if Key = VK_DELETE then
begin
if cBoxServername.Items.IndexOf(cBoxServername.Text) > -1 then
begin
cBoxServername.Items.Delete(cBoxServername.Items.IndexOf(cBoxServername.Text));
if cBoxServername.Items.Count > -1 then
begin
cBoxServername.ItemIndex := 0; // Auf den ersten Eintrag einstellen
// soweit vorhanden.
end;
end;
end;
Key:= 0;
end;
Vielen Dank für Deine Hilfe.
Bis bald Chemiker