楼主的意思是把Windows的任务栏设置为自动隐藏了,然后最大化时程序自动就满屏了。
如果不设置为自动隐藏就没问题了
解决办法:
1、将Form 的FormStyle设置为fsStayOnTop;但当程序最大化后任务栏又不见了
2、截获WM_GETMINMAXINFO消息:
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
private
{ Private declarations }
//声明截获消息过程
procedure MyMax(var msg:TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
//实现部分
procedure TForm1.MyMax(var msg: TWMGetMinMaxInfo);
var
MySize:TPoint;
begin
MySize.X:=804;//最大化时的宽
MySize.Y:=577;//最大化时高
msg.MinMaxInfo.ptMaxSize:=MySize;
end;
end.