【Delphi】无标题移动窗体

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ssleft in shift then releasecapture; perform(WM_SYSCOMMAND,$F012,); end;…

1.在delphi中新建窗体程序,然后设置窗口的 BorderStyle属性为bsNone 2.在窗体的public区写下这一句: Procedure CreateParams(var Params :TCreateParams);override; 3.然后把光标停在这一行上,按下Ctrl+Shift+C,在出现的代码块里写上 inherited CreateParams(Params); if BorderStyle = bsNone then with Params do Style :=…

[WPF] 我的WPF自学日记1，无标题窗体拖动

学习WPF的第一天,尝试写比较常用的功能,无标题窗体拖动. 先在设计界面给它加上MouseDown事件 <Window x:Class="MyFirstWPFAPP.MainWindow" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:…

windows程序里新窗体不在任务栏显示，无标题拖动，键盘事件，始终显示在主窗体上面，单实例运行等

不显示在任务栏,Alt+Tab也不显示 protected override CreateParams CreateParams { get { const int WS_EX_APPWINDOW = 0x40000; const int WS_EX_TOOLWINDOW = 0x80; CreateParams cp = base.CreateParams; cp.ExStyle &= (~WS_EX_APPWINDOW); // 不显示在TaskBar cp.ExStyle |= WS_EX…

nsis利用ButtonEvent插件移动无标题窗口

众所周知,普通win窗口是带有标题栏的,标题栏的主要功用之一,就是可以方便的拖动窗体,但为了各式各样的目的,有时候我们不得不想办法将其消除,在nsis中主要是靠system插件调用系统函数改变窗体风格来实现,这不是本文的重点,略过,但我们将标题删除以后,最大的问题就是这个无标题窗体无法通过鼠标拖动,后来一些nsis爱好者研究出了一套有效的方法来解决这个问题,其主要原理基本都是靠第三方插件来截获和传递鼠标左键消息来实现.殊不知其实通过nsis自带的官方插件ButtonEvent一样可以实现,并且一…