ShowModal 폼을 불러내고 마우스 클릭이 모달폼 밖에서 클릭하면
자동으로 폼을 종료하게 하고 싶습니다.
좋은 방법이 있으면 알려주세요.


마우스 이벤트를 이용했지만 작동을 하지 않네요~
고수님들 좋은 방법좀 알려 주시기 바랍니다.

procedure TfrmPopupMenu.WMNCLButtonDown(var Msg : TWMNCLButtonDown);
var
   MousePtX,
   MousePtY  : Integer;
   FromAreaL,
   FromAreaR,
   FromAreaT,
   FromAreaB : Integer;

   FromRect  : TRect;
begin
   GetWindowRect(frmPopupMenu.Handle, FromRect);
   FromAreaL := FromRect.Left;
   FromAreaR := FromRect.Right;
   FromAreaT := FromRect.Top;
   FromAreaB := FromRect.Bottom;
  
   MousePtX  := Mouse.CursorPos.X;
   MousePtY  := Mouse.CursorPos.Y;

   if (((MousePtX < FromAreaL) and (FromAreaR < MousePtX)) and
       ((MousePtY < FromAreaT) and (FromAreaB < MousePtY)))    then //Clsoe;
                                                                    lblMainTitle.Caption := 'OUT'
                                                               else lblMainTitle.Caption := 'IN';
end;