一个很让我深思的问题,请帮忙?
我是用了VCLSkin那种皮肤,但是当我隐藏任务时,我的主界面不能全屏显示,但是我不用就可以全屏显示!不知各位是否遇到过同样的问题!
我用这种方法不行(formstyle设置为fsStayOnTop):
Form1.Left:=Screen.WorkAreaLeft;
Form1.Width:=Screen.Width;
Form1.Top:=Screen.WorkAreaTop;
Form1.Height:=Screen.Height;
我用这种方法也不行:
showwindow(findwindow('Shell_TrayWND',nil),SW_HIDE);
{showwindow(findwindow('Shell_TrayWND',nil),SW_show);}
用这种方法也不行:
procedure CreateParams(var Params: TCreateParams); override;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
params.X:=0;
params.Y:=0;
params.Width:=Screen.Width;
params.Height:=Screen.Height;
Params.Style:=(Params.Style and not WS_THICKFRAME) or WS_DLGFRAME ;
end;
这个把我急死啦,请大家讨论一下!
是不是VCLSkin有问题,还是有别的关键我没有做到呢?!~