有关ComboBox的问题???非常着急!!!(20分)

  • 主题发起人 主题发起人 netxeyes
  • 开始时间 开始时间
N

netxeyes

Unregistered / Unconfirmed
GUEST, unregistred user!
各位Delphi高手,我现在要实现在一个ComboBox中边输入能够“即时跟踪”编辑框的内容:
例如:
在ComboBox的下拉框中有111,222,333,则当你输入2的时候,那么222就会自动被选中,
我记的是用SendMessage给Combobox发一个消息,可是又记不清具体的情况了,请各位
大哥提供原代码示例!万分感谢!
 
combobox本来就是这样的阿。
 
procedure TForm1.Combobox1Change(Sender:TObject);
var
s,tempstr:string;
i:integer;
begin
sr:=combobox1.text;
tempstr:=s;
i:=sendmessage(combobox1.handle,CB_FINDSTRING,0,integer(pchar(s)));
if i>0 then
begin
s:=Combobox.items;
Combobox1.text:=s;
Combobox1.SelStart:=length(tempstr);
Combobox1.SelLength:=length(s)-length(tempstr);
end;
end;
 
Combobox1.sorted := True ;
 
这个功能根本就不用设置,你用combobox默认就有这个功能。
 
后退
顶部