当前位置: 爱符号 - 所有分类 - 桌面应用 - Delphi - 实现非标题栏拖动
实现非标题栏拖动 ShiXianFeiBiaoTiLanTuoDong
啸天 发表于:2012-09-30 17:46:24 阅读(1446)
关键词:拖动 拖动 Delphi Delphi
摘要:能够实现不在标题栏上拖动。

Windows系统中普通窗体实现窗体拖动,需要拖动标题栏才可以实现。

但是,有时候并不需要标题栏,但还要实现拖动功能,搜索后找到一简便代码:

需要的单元是:Windows, Messages;

    ReleaseCapture;

    SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);

实现方法:

在窗体的FormMouseMove事件中加入代码

procedure TF_Main.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    ReleaseCapture;
    SendMessage(F_Main.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;

这样就可以实现窗体拖动了,而且。并不是通过标题栏实现的。

声明:以上内容仅代表作者观点,不代表爱符号赞成此内容或立场
拖动相关的分享
 
  • ·暂无相关分享
  •  
Delphi相关的分享
 
作者热播
 
相关分类
  • ·C++ 今:0 昨:0 总:7
  • ·MFC 今:0 昨:0 总:3
  • ·Qt 今:0 昨:0 总:0
  • ·C# 今:0 昨:0 总:28
  • ·Linq 今:0 昨:0 总:1
  • ·委托 今:0 昨:0 总:2
  • ·Delphi 今:0 昨:0 总:4
  • ·VB.NET 今:0 昨:0 总:0
  • ·VB6 今:0 昨:0 总:9
  • ·C 今:0 昨:0 总:1
热门分享
 
最新分享