delphi中Memo1下拉ListBox2选择完成文本填充拖一个Memo1下拉ListBox2到界面上，假设ListBox2，里已加载列名最终效果：Memo1里输入.点号,带出ListBox2，选择好列名，回车，将点号和列名输入到Memo1原位置 

procedureTForm1.Edit1KeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginif(key=40)and(listbox2.Items.Count>0)andlistbox2.Visiblethenbegin//defines.icnVK_DOWN=40;ListBox2.SetFocus;ListBox2.ItemIndex:=0;

procedureTForm1.Edit1KeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginif(key=40)and(listbox2.Items.Count>0)andlistbox2.Visiblethenbegin//defines.icnVK_DOWN=40;ListBox2.SetFocus;ListBox2.ItemIndex:=0;