如何将程序主界面最大化后使其在任务栏的上方？？？？？

[mrlining]

如何将程序主界面最大化后使其在任务栏的上方，而不是任务栏将程序的下方盖住？？？？？？？？？

[Kingron]

赫赫,拦截WM_GETMINMAXINFO就可以乐.修改MinMaxInfo的结构,改成屏幕的大小-任务栏的大小就可以乐.

[c_hk]

？？

[mrlining]

能说的具体点吗？？

[Asus]

任务栏有将程序的下方盖住吗？

[mrlining]

当然有，不信你自已做个程序试试，将windowstate设为wsMaximized,将任务栏设为不自动隐藏，将总在前面选中。

[码狂]

将窗体的FormStyle属性设成fsStayOnTop。

[Asus]

我机器上还是没盖住（我用的是WINME）

[mrlining]

我用的是win2000server

[mrlining]

我所说的并不是谁盖住谁，而是程序界面在任务栏的上方显示，应向两个上下并排的窗体一样。

[cczmm]

用SetWindowPos()吧，放在初始化里面！

[火鸟李国平]

SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)，总在最上

[musicwind]

TFrmWorkAround = Class(TForm)
....
procedure WMGETMINMAXINFO( var Message: TWMGetMinMaxInfo ); Message WM_GETMINMAXINFO;
end;

function mscGetWorkArea( var rt: TRect ): Boolean;
begin
result := SystemParametersInfo( SPI_GETWORKAREA, 0, @rt, 0 );
end;

procedure TFrmWorkAround.WMGETMINMAXINFO(var Message: TWMGetMinMaxInfo);
var
rt: TRect;
begin
if not Config.ConstrainedMaxSize
or ( Top < ( Application.MainForm.Top + Application.MainForm.Height ) ) then
begin
inherited;
Exit;
end;
if mscGetWorkArea( rt ) then
begin
Message.MinMaxInfo.ptMaxSize.x := rt.Right - rt.Left + 10;
Message.MinMaxInfo.ptMaxSize.y := rt.Bottom - rt.Top
- Application.MainForm.Top
- Application.MainForm.Height + 10;
Message.MinMaxInfo.ptMaxPosition.x := rt.Left - 5;
Message.MinMaxInfo.ptMaxPosition.y := rt.Top - 5
+ Application.MainForm.Top
+ Application.MainForm.Height;
end
else
begin
Message.MinMaxInfo.ptMaxPosition.x := Screen.DesktopLeft;
Message.MinMaxInfo.ptMaxPosition.y := Screen.DesktopTop
+ Application.MainForm.Top
+ Application.MainForm.Height
- 5;
Message.MinMaxInfo.PtMaxSize.y := Screen.DesktopHeight
- ( Message.MinMaxInfo.PtMaxSize.y - Screen.DesktopHeight )
- Application.MainForm.Top
- Application.MainForm.Height
- 13;
end;
end;