给我分吧,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.