制作没有边框的窗体,并可移动
来源:互联网 发布:淘宝活动报名表格 编辑:程序博客网 时间:2024/05/16 07:50
unit MainFrm;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMainForm = class(TForm)
btnClose: TButton;
procedure btnCloseClick(Sender: TObject);
private
{ Private declarations }
protected
// Capture the WM_NCHITTEST message to enable moving the form.
// 捕捉WM_NCHITTEST 消息,以便移动窗体
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
//创建一个没有标题但可以重设大小的窗体,要实现需要覆盖窗体的CreateParams( )方法,然后设置相关风格
procedure CreateParams(var Params: TCreateParams); override;
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
Message.Result := HTCAPTION;
end;
procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;
end.
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMainForm = class(TForm)
btnClose: TButton;
procedure btnCloseClick(Sender: TObject);
private
{ Private declarations }
protected
// Capture the WM_NCHITTEST message to enable moving the form.
// 捕捉WM_NCHITTEST 消息,以便移动窗体
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
//创建一个没有标题但可以重设大小的窗体,要实现需要覆盖窗体的CreateParams( )方法,然后设置相关风格
procedure CreateParams(var Params: TCreateParams); override;
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
Message.Result := HTCAPTION;
end;
procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;
end.
- 制作没有边框的窗体,并可移动
- WinForm窗体没有系统边框的时候移动窗体
- Qt 无边框、透明、可移动的个性窗体
- Qt 无边框、透明、可移动的个性窗体
- QT实现无边框的可移动窗体
- Qt 无边框、透明、可移动、的个性窗体
- winform技巧—没有边框移动窗体的方法
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解(转载)
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解
- Qt 无边框、透明、可移动、的个性窗体案例详解 .
- Qt 无边框、透明、可移动、的个性窗体案例详解
- 在jboss上部署web应用
- java lucene入门例子
- 正则表达式详解
- 使窗体尺寸最小
- Windows XP 下使用IIS5.1
- 制作没有边框的窗体,并可移动
- How to use XY chart of JFreeChart? Or any other choice?!
- 子窗体TChild嵌入应用
- java读取oracle的存储过程
- window下用命令创建共享连接
- 什么是CDN,大型门户网站的cdn部署
- 读取txt.sql
- 需求分析的20条法则 (ZT)
- ASP.NET-GridView的分页功能