Code

list = {"a", "abc", "abcd"};
column = Column[{
    InputField[Dynamic@x, String, ContinuousAction -> True]
    , Dynamic@Column[
      Map[Function[
        EventHandler[
         #, {"MouseClicked" :> (x = #)}
         ]
        ], Select[list, StringMatchQ[#, x ~~ ___] &]]
      ]}];
CellPrint[
 Cell[BoxData@ToBoxes[columns], "Output", CellTags -> "MyUniqueCell"]]