Duda con Combobox

dec · #3 30-12-2005

Hola,

Código Delphi [-]uses
  Windows;

// Creo que algo así más o menos es lo que precisas.
//
procedure TForm1.ComboBox1KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  // Si no es ENTER no nos vale
  if (Key <> VK_RETURN) then Exit;

  // Si es ENTER averiguamos si el texto del combobox
  // no está ya incluido entre sus items...
  if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then
  begin
    // Si no está incluido, lo incluimos
    ComboBox1.Items.Add(ComboBox1.Text);
    // Y, por último, borramos el texto
    ComboBox1.Text := '';
  end;
end;

Edito: no es que se entienda mucho lo que se quiere decir, lo que ocurre es que se me ha encendido la bombilla, como suele decirse, cuando he leído la exposición del problema: tengo para mí que he pasado por algo así. De todo modos no estoy seguro de que la solución propuesta valga para algo o no... veremos.