From 59f061c29aa8539c3011f12c777270d247afc937 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 14 Oct 2005 08:02:56 +0000
Subject: [PATCH] groupbox has clickable client area (fixes issue #1309)

git-svn-id: trunk@7964 -
---
 lcl/interfaces/win32/win32callback.inc | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 855987be9e..04d67ffebc 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1198,10 +1198,17 @@ Begin
     end;
     WM_NCHITTEST:
     begin
-      if (lWinControl <> nil) and (lWinControl.FCompStyle = csHintWindow) then
-      begin
-        LMessage.Result := HTTRANSPARENT;
-        WinProcess := false;
+      if (lWinControl <> nil) then begin
+        if (lWinControl.FCompStyle = csHintWindow) then
+        begin
+          LMessage.Result := HTTRANSPARENT;
+          WinProcess := false;
+        end
+        else if (lWinControl is TCustomGroupBox) then
+        begin
+          LMessage.Result := HTCLIENT;
+          WinProcess := false;
+        end;
       end;
     end;
     WM_NCLBUTTONDOWN: