* Set message result in BUTTONUP event in header. Fixes issue 26388

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3417 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2014-08-03 15:29:36 +00:00
parent b23e55d39e
commit f10b177f03
2 changed files with 2 additions and 0 deletions
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@ -10566,6 +10566,7 @@ begin
              P := Treeview.ClientToScreen(Point(XPos, YPos));
              Menu.Popup(P.X, P.Y);
              HandleMessage := True;
+              Message.Result := 1;
            end;
          end;
        end;