如何实现下面的这种效果

怎么实现下面的这种效果？
我不想用combobox

------解决方案--------------------
自己弹一个alwaysontop的没有边框窗体出来。

------解决方案--------------------
用edit加memo or listview就可以自己控制了
------解决方案--------------------

引用:

Quote: 引用:

自己弹一个alwaysontop的没有边框窗体出来。

你说的在哪里设置啊？
我查到一个链接，很好用，你看看http://bbs.csdn.net/topics/360160938

放一个Edit，那里输入，在Edit的OnChange事件里面加一些处理：当Edit不为空时，在Edit下面显示出一个ListBox（ListBox1.Visible := True），并且把和输入相关的内容显示到ListBox中；当Edit的Text为空时，则将ListBox隐藏起来（ListBox1.Visible := False）；
例如：当你在Edit中输入“地下”时，马上把ListBox中显示和“地下”相关的内容
------解决方案--------------------
或者用一个edit和一个listbox模拟

unit Unit1;


interface


uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;


type

  TForm1 = class(TForm)

    lst1: TListBox;

    edt1: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure edt1Click(Sender: TObject);

    procedure edt1Exit(Sender: TObject);

    procedure lst1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;


var

  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);

begin

  edt1.Text := '';

  lst1.Hide;

 // 随便加几项

  lst1.Items.Add('dsfsfsff');

  lst1.Items.Add('多少顺丰到付');

  lst1.Items.Add('xzxccvvxv');

  lst1.Items.Add('dsf的23233sfsff');


  lst1.Top := edt1.Top + edt1.Height;

  lst1.Left := edt1.Left;

  lst1.Width := edt1.Width;

  lst1.Height := lst1.ItemHeight * lst1.Items.Count + 4;

end;


procedure TForm1.edt1Click(Sender: TObject);

begin

  if lst1.Items.Count > 0 then

    lst1.Show;

end;


procedure TForm1.edt1Exit(Sender: TObject);

begin

  lst1.Hide;

end;


procedure TForm1.lst1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin 

  lst1.ItemIndex := lst1.ItemAtPos(Point(x, y), True);