如何让一个程序永久置与窗口列表底部,,
2个回答
展开全部
给我分吧,789女士!小生这里先谢了!啊没戏了,是8月8日的问题。faint!截WM_WINDOWPOSCHANGING消息,看
源程序
:unit
Unit1;interfaceuses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
StdCtrls,
ExtCtrls,
ComCtrls,
Db,
DBTables,
Dialogs;type
TForm1
=
class(TForm)
private
{
Private
declarations
}
procedure
WMWindowPosChanging(
var
Msg:
TWMWindowPosChanging
);
message
WM_WINDOWPOSCHANGING;
public
{
Public
declarations
}
end;var
Form1:
TForm1;implementation{$R
*.DFM}procedure
TForm1.WMWindowPosChanging(var
Msg:
TWMWindowPosChanging);begin
inherited;
Msg.WindowPos^.hwndInsertAfter
:=
HWND_BOTTOM;end;end.
源程序
:unit
Unit1;interfaceuses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
StdCtrls,
ExtCtrls,
ComCtrls,
Db,
DBTables,
Dialogs;type
TForm1
=
class(TForm)
private
{
Private
declarations
}
procedure
WMWindowPosChanging(
var
Msg:
TWMWindowPosChanging
);
message
WM_WINDOWPOSCHANGING;
public
{
Public
declarations
}
end;var
Form1:
TForm1;implementation{$R
*.DFM}procedure
TForm1.WMWindowPosChanging(var
Msg:
TWMWindowPosChanging);begin
inherited;
Msg.WindowPos^.hwndInsertAfter
:=
HWND_BOTTOM;end;end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询