一个关于ComboBox和Sendmessage的问题

为了根据ComboBox.text的不同，提示不同的list,我用以下语句
lRet=SendMessage(ComboBox1.handle, CB_SHOWDROPDOWN, Integer(True), 0)
实现自动下拉list，但是多次改变list后，发现鼠标不见了，单击一下才又出现，
而且，前几次下拉的list没有完全擦除，只是向上覆盖，我在list弹出时用sendmessage重画还是不行，大家有没有遇到这种情况，如何解决？