delphi中左右翻转窗体(修改EXStyle)
2016-02-25 18:36
525 查看
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure Createparams(Var Params:TCreateParams);override;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Createparams(var Params:TCreateParams);
//在该事件中翻转窗体
var
wndParnet:HWND; //保存桌面句柄
begin
Inherited CreateParams(Params);
With Params do
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
wndParnet:=GetDesktopWindow; //取得桌面句柄
end;
end;
end.
http://blog.csdn.net/diligentcatrich/article/details/7008764
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure Createparams(Var Params:TCreateParams);override;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Createparams(var Params:TCreateParams);
//在该事件中翻转窗体
var
wndParnet:HWND; //保存桌面句柄
begin
Inherited CreateParams(Params);
With Params do
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
wndParnet:=GetDesktopWindow; //取得桌面句柄
end;
end;
end.
http://blog.csdn.net/diligentcatrich/article/details/7008764
相关文章推荐
- delphi中覆盖最大化消息(覆盖WM_GETMINMAXINFO消息)
- delphi与汇编
- 用内存流 文件流 资源生成客户端(Delphi开源)
- 用Delphi创建服务程序
- Delphi反射
- delphi程序设计之底层原理(有些深度)
- Delphi中关于Rtti的一些操作(一)
- Delphi中运行时改变panel的位置及大小(通过wm_SysCommand来实现)
- Delphi下用API代码创建Form
- Delphi中MethodAddress汇编代码的解析
- 用Delphi进行word开发
- Delphi中多标签页面的实现
- 关于Delphi中TRttiContext.FindType失效的问题
- Delphi中拖动无边框窗口的5种方法
- Delphi TListView刷新闪烁问题
- Delphi中关于资源释放(Free/release/freeAndNil)的一点体会
- delphi控件安装(重安装系统也不用再安装)
- Delphi - 软件注册的一个例子
- 深入VCL源码研究DELPHI窗体的创建和关闭
- Delphi XE4 For IOS 之SQLite初试