如何知道表單是否在組件上懸停？

Question

我需要知道（移動）窗體是否懸停在組件上（可能是沒有鼠標的MouseEnter和MouseLeave）。

我有這個想法獲得組件的左，頂部，高度，寬度和計算（移動）窗體的位置是否在窗體的位置。 （我不完全確定我能做到這一點）

有關實施我的想法的任何建議嗎？有沒有其他辦法可以做到這一點？

Answer 1

嘗試這樣：

var 
    P: TPoint; 
    R1, R2, I: TRect; 
begin 
    P := TheComponent.ClientOrigin; 
    R1 := TheComponent.ClientRect; 
    Windows.OffsetRect(R1, P.X, P.Y); 
    P := TheForm.ClientOrigin; 
    R2 := TheForm.ClientRect; 
    Windows.OffsetRect(R2, P.X, P.Y); 
    if Windows.IntersectRect(I, R1, R2) then 
    // the Form is over the component 
    else 
    // the Form is not over the component 
end;