zoukankan      html  css  js  c++  java
  • FormMove



    private
        { Private declarations }
        procedure WMMOVE(var Msg: TMessage); message WM_MOVE;
     
     
    procedure TForm1.WMMOVE(var Msg: TMessage);
    begin
        inherited;
        if (Left < 30) and (Top < 30) and
          (Left <> 0) and (Top <> 0) then // 设定移动到左上角 10 点范围内时贴到边上去
          begin
            Left := 0;
            Top := 0;
            Msg.Result := 0;
          end;
    end;
     
     
    {
    1.这个功能只在屏幕的左上角有效。
    2.右上角
    3.左下角右下角
    4.2个窗体相互吸附
    }

     




  • 相关阅读:
    28
    27
    26
    25
    24
    23
    17
    16
    15
    14
  • 原文地址:https://www.cnblogs.com/xe2011/p/3651824.html
Copyright © 2011-2022 走看看