您现在的位置:首页 >> 界面报表 >> 界面报表 >> 内容

实现拖动无标题窗口的5种方法

时间:2011-9-3 15:25:13 点击:

  核心提示:1。MouseMove事件中加入:// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017, 0);2.MouseDown事件中加入:// POSTMESSA...

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;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号