问个很菜的问题：DELPHI怎么实现文本框内容的自动联想输入？

这个问题很简单,只要调用Sendmessage这个API函数就行.例如:
Private Sub Text1_Change() 
Dim Search As String, Index As Long 
Search=Text1.Text 
If Len(Search)>0 Then 
Index=SendMessage(List1.hwnd,LB_SELECTSTRING,-1,ByVal Search) Else 
List1.ListIndex=0 
End If 
End Sub 
其中第3个参数表示从头找起，如果要从第N项找起，就设为N-1 
这样也会自动选取找到的项，如果不想自动选取，把第2个参数改成LB_FINDSTRI 
NG,在Delphi中调用也大致相同.