procedure TForm.EditDouchetteKeypress(Sender: Tobject; var Key: char); var Code: string; begin if (Key #13) or (Key #09) then begin Code := (Sender as TEdit).Text; // faire quelque chose de "code" // exemple, lister les code barres scannés, si déjà présent pointer dessus : if ListBox1.Items.IndexOf(Code) = -1 then ListBox1.Items.Add(Code); else ListBox1.ItemIndex := ListBox1.Items.IndexOf(Code); (sender as TEdit).clear; (sender as TEdit).SetFocus; end; end;
ListBox1.Items.Add(Code);
ListBox1.ItemIndex := ListBox1.Items.Add(Code);