Question

delphi：如何建立下拉菜单

我希望可以在自己的程序中建立一个形状类似于文本框的下拉菜单，在执行程序的时候可以点在这个组件上，从弹出的列表中选取一个项，然后这个项就会显示在这个框中。在这个组件的旁边还有一个按钮，点击这个按钮时触发的事件随着选取的项的不同而不同（调用不同的过程或函数）。请问这样的功能如何实现?
比较常见的应用是在图书馆的搜索页面中，下拉列表选择要采用的搜索方式和范围，另外建立一个文本框输入搜索的内容，然后点击搜索按钮，获得想要的答案。

Answer 1

简单帮你写了个
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
if ComboBox1.Text='图书1' then
begin
for I := 0 to ListBox1.Count - 1 do
begin
if Pos(Edit1.Text,ListBox1.Items.Strings[i])>0 then//查找有关的字符
// if Pos(ListBox1.Items.Strings[i],Edit1.Text)>0 then//查找完整的
ShowMessage(IntToStr(i));
end;
end;

if ComboBox1.Text='图书2' then
begin
for I := 0 to ListBox2.Count - 1 do
begin
if Pos(Edit1.Text,ListBox2.Items.Strings[i])>0 then
ShowMessage(IntToStr(i));
end;
end;

end;

Answer 2

if Dir[length(Dir)] <>'\' then Dir:=Dir+'\';
result :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*',faAnyFile+faDirectory,FSearchRec);
try
while FindResult = 0 do
begin
result.Add(LowerCase(FSearchRec.Name));
FindResult:=FindNext(FSearchRec);
end;
finally
FindClose(FSearchRec);
end;
//FileList.Sorted:=true;
end;

Answer 3

你说的太不好理解了，到底是做一个菜单 还是想菜单项里能容纳下一个文本框 或者按钮等其他控件？

追问

举个例子吧，世界之窗浏览器右上角的搜索栏，左边有一个搜索引擎的标志图片，旁边还有一个小三角。点那个图片，它会弹出三种搜索工具，随便点一个，那个标志就会变成对应的标志。然后就可以使用对应的工具搜索。我需要的功能跟这个差不多，不过我不需要是图片，弹出几个选项，点选以后在原来的位置显示点选的选项，来实现不同的功能。

追答

你说我的我明白了
你在delphi中 假如 Ttoolbar 组件
加入一个TpopupMenu组件 设置好要弹出的菜单项目
右键单击Ttoolbar新建一个按钮
按钮的style属性 改成DropDown
按钮的DropDownMenu属性 指向 假如的TpopupMenu。
这样 点难就会弹出菜单。

还需要 在TpopupMenu菜单项的onclick 事件里 指定按钮的Caption 属性
这样 就大概是你想要的了

Answer 4

你说的是上下文菜单吧？

追问

举个例子吧，世界之窗浏览器右上角的搜索栏，左边有一个搜索引擎的标志图片，旁边还有一个小三角。点那个图片，它会弹出三种搜索工具，随便点一个，那个标志就会变成对应的标志。然后就可以使用对应的工具搜索。我需要的功能跟这个差不多，不过我不需要是图片，弹出几个选项，点选以后在原来的位置显示点选的选项，来实现不同的功能。