1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

//...
  public
    { Public-Deklarationen }
    procedure WndProc(var Msg: TMessage);override;
//...
procedure TForm1.WndProc(var Msg: TMessage);
var aPoint : TPoint;
    aControl : TControl;
begin
  if (Msg.Msg = WM_LBUTTONDOWN) or //Maus im Clientbereich der Form
     ((Msg.Msg = WM_PARENTNOTIFY) and (Msg.WParam = WM_LBUTTONDOWN)) or//wg. Panels u.s.w
     (Msg.Msg = WM_NCLBUTTONDOWN) then//Klick auf Titelleiste und Menü
     if TreeView1.Visible then
       begin
       aPoint.x := (Msg.LParam and $FFFF);
       aPoint.y := ((Msg.LParam shr 16) and $FFFF);
       //wenn Klick außerhalb TreeView
       if (aPoint.x <= TreeView1.Left) or
          (aPoint.x >= TreeView1.Left+TreeView1.Width) or
          (aPoint.y <= TreeView1.Top) or
          (aPoint.y >= TreeView1.Top+TreeView1.Height) then
        TreeView1.Visible := False;
       end;
  inherited;
end;