程式在Combobox1的list box中顯示資料後，我將滑鼠移到Combobox1後(code 如下)，希望滑鼠如果不從Combobox1的list box選擇item ,則在滑鼠離開Combobox1時，Combobox1的list box可以自動close，但是我不知道如何判斷滑鼠是否離開ComboBox？
var
Tp: Tpoint;
...
TP:= ClientToScreen(point(combobox1.Left 3,combobox1.top combobox1.Height 3));
SetCursorPos(Tp.x, Tp.y);

Q:如何判斷滑鼠離開ComboBox?
希望各位先進指點！
謝謝！

編輯記錄

雖然不知道你要這個功能用意在那裡, 但如果combobox下拉展開的情況下, 只要滑鼠鼠移開box 位置以外, 同時讓combobox 失去焦點(focus), 展開是會自動收合的(但只移開滑鼠是不會的, 必須有ｃｌｉｃｋ的動作才行)

Q:如何判斷滑鼠離開ComboBox?
一般是會觸發 CM_MOUSEENTER (滑鼠移至物件 非焦點)滑鼠離開會引發 CM_MOUSELEAVE Message

不過需注意！ CM_MOUSELEAVE 並不保證一定會觸發（有進不一定有出）。
有時滑鼠很快的移動到別的地方，就不觸發了。
不過這個機會很少，通常用遺漏方式來加強。例如 觸發 CM_CANCELMODE 來解決。

或者 巧用 SetTimer KillTimer 來補充。

要滿足你的目的。用 CM_MOUSELEAVE 可能是行不通的。
因為 ListHandle 跟 ComboHandle 並非同一個。因此無法判別 移至 List 還是別位。
既使做到可以判別，但 List 滑鼠移出並沒有觸發 CM_MOUSELEAVE 這個訊息可能是另外但無從得知。

建議 Override DropDown 當下拉時 啟用 SetTimer 去檢查滑鼠位置是否為 Handle 、EditHandle、ListHadle(需自取）
若非則 KillTimer 並設定 DroppedDown := False;關閉下拉。