防止窗口被鼠标拖曳的XML代码 相关搜索: 代码, 拖曳, 窗口, XML, 鼠标

function SomeClass:Constructor()2 X” |! O$ F( L” m
          [” ~2 ! u4 C. [2 ]
        self.original_x = self:GetLeft();
6 B: ]; e  _# l        self.original_y = self:GetTop();
) R; O1 {1 d* V8 M( P” `& K
  {8 M+ f8 e8 z        self.PositionChanged = function ( sender, args )9 B1 P+ |6 E  l’ T: t- a& r
                if ( not self.movable ) then7 Y+ q9 I3 q! J+ x% }+ A
                        self:SetPosition( self.original_x, self.original_y ); _4 r; ], [, r5 w2 Q) n
                end, {” |’ ]- / f; ], [; Z9 b( V
        end
) @# C) o/ x& }8 o; y+ Q; Cend