向ComboBox发送一条CB_GETDROPPEDSTATE信息：
view plaincopy to clipboardprint?
If SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 0, 0) = 1 then
begin
{你的代码}
end;