怎么实现下面的这种效果？

Question

我不想用combobox

Answer 1

或者教教我怎么把combobox右边的下拉箭头去了，谢谢了

Answer 2

ComboBox的STYLE属性设置成“csSimple”可以去了下拉箭头，但是不能选择了，我要的是能选择的，谢谢了

Answer 3

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

Answer 4

用edit加memo or listview就可以自己控制了

Answer 5

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

Answer 6

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

Answer 7

简单点// 程序运行前保证cbb不要得到焦点
procedure TForm1.cbb1Enter(Sender: TObject);
begin
  cbb1.Style:= csDropDown;
end;procedure TForm1.cbb1Exit(Sender: TObject);
begin
  cbb1.Style:= csSimple;
end;

Answer 8

或者用一个edit和一个listbox模拟unit Unit1;interfaceuses
  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);
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if PtInRect(ClientRect, Point(x, y)) then
    lst1.Hide;
end;end.