|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
exu (exu) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/6/6 17:49:50 |
标题: |
|
加入我的收藏 |
楼主: |
如何实现一个无焦点窗口???
----------------------------------------------
- |
作者: |
|
2004/6/6 22:25:02 |
1楼: |
单纯的做个无焦点窗体有意义吗?
----------------------------------------------
-
|
作者: |
sephil (NAILY Soft) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/6/6 22:39:54 |
2楼: |
重载CreateParams type TMainForm = class(TBaseForm) private { Private declarations } protected procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } end;
var MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or WS_EX_NOACTIVATE; end;
----------------------------------------------
Copyright 2008 ? NAILY Soft Click here to redirect to my home Click here to redirect to my blog
|
|