Lisbox History - Problemchen

[marabu]

Hi Matti,

Zitat von turboPASCAL:

Ich finde das Problem nicht

dann ist ja alles in Ordnung.

Um dein Problem zu verstehen müsste man wissen, ob du mit den Standardeinstellungen der ComboBox arbeitest, aus welchem EventHandler dein Code stammt, etc.

Die einfache history Funktionalität finde ich nicht so berauschend - mit einer kleinen Erweiterung erhalte ich eine MRU Funktionalität (most recently used):

Delphi-Quellcode:

const
  MAX_HISTORY = 5;

procedure TDemoForm.ComboBoxKeyPress(Sender: TObject; var Key: Char);
var
  index: integer;
begin
  if Key = Chr(VK_RETURN) then
    with Sender as TComboBox do
    begin
      // no duplicates
      index := Items.IndexOf(Text);
      if index > -1 then
        Items.Delete(index);
      // store new item
      Items.Insert(0, Text);
      // watch for limit
      if Items.Count > MAX_HISTORY then
        Items.Delete(MAX_HISTORY);
    end;
end;

Grüße vom marabu