zoukankan      html  css  js  c++  java
  • Delphi中拖动无边框窗口的5种方法

    1.MouseMove事件中加入:

    // ReleaseCapture;
    // Perform(WM_SYSCOMMAND, $F017 , 0);

    2.MouseDown事件中加入:

    // POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);
    // POSTMESSAGE(Self.Handle,274,61458,0);

    3.MouseDown事件中加入:

    // ReleaseCapture;
    // Perform(WM_SYSCOMMAND, $F012, 0);

    4.截获WM_NCHITTEST消息

    procedure WMNCHITTEST(var Msg:TWMNCHITTEST);message WM_NCHITTEST;

    procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
    begin
    inherited;
    //Msg.Result:=HTCaption;
    end;

    5.

    private
    procedure AppMessage(var Msg:TMsg;var Handled:Boolean);

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    Application.OnMessage:=AppMessage;
    end;

    procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
    begin
    //(GetKeyState(vk_CONTROL) < 0)
    if (Msg.message=WM_LButtonDown) and
    (DefWindowProc(Handle,WM_NCHitTest,
    0,GetMessagePos)=HTClient) and
    (True) then
    begin
    SendMessage(Handle,WM_NCLButtonDown,
    HTCaption,GetMessagePos);
    //发送鼠标在标题栏内按下的消息
    Handled:=true;
    end;
    end;

    在MousDown事件中写
    ReleaseCapture;//释放鼠标控制区域
    SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);//发送移动标题栏消息
    如,要在Panel上可以移动窗口
    procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    begin
    ReleaseCapture;
    SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE+HTCaption,0);
    end;

    http://blog.csdn.net/diligentcatrich/article/details/18164361

  • 相关阅读:
    Kubernetes List-Watch
    Go 模板语法
    vRA7 Business error “Untrusted certificate chain”
    Centos 7/8 安装 Harbor
    Kubernetes Headless Service
    Kubernetes addon-manager
    Kubernetes Metrics-Server
    Kubernetes Heapster
    容器rootfs
    Kubernetes lxcfs
  • 原文地址:https://www.cnblogs.com/findumars/p/5217893.html
Copyright © 2011-2022 走看看