启动画面最大化的问题(12分)

  • 主题发起人 主题发起人 smartguolei1
  • 开始时间 开始时间
S

smartguolei1

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在已经为程序做了一个启动画面,但怎么能让这个画面最大化啊。就是把整个屏幕都全占满,连windows下面的工具栏也看不见?谢谢
 
设置窗体属性,可以实现看不到工具栏,修改Image的属性可以使画面充满
 
我说的工具栏是指,windows下面,开始什么的,也就是最低下的工具栏,如果你说的工具栏和我说的是一致的话,请问大哥应该修改那个属性啊。
 
我是这么写的。
Application.Initialize;
Application.Title := '北京市金泰建筑规划管理查询软件';
create:=Tcreate.Create(application);
create.Height:=screen.Height;
create.Width:=screen.Width;
create.image1.Picture.LoadFromFile('c:/program files/map/create.jpg');
create.image1.Height:=screen.Height;
create.image1.Width:=screen.Width;
create.Show;
create.Update;
sleep(3500);
create.Free;
但还是能看见windows的工具栏。
 
form1.BorderStyle:=bsnone;
form1.FormStyle:=fsStayonTop;
form1.Left:=0;
Form1.Top:=0;
form1.Width:=Screen.Width;
form1.Height:=Screen.Height;

最近公司较忙,没时间上QQ.这里也偶尔来下.不好意思.
 
不用设置Image的大小,设置它的Align为AlClient就行了.
 
先暂时隐藏任务栏不就行了
showwindow(findwindow('Shell_TrayWND',nil),SW_HIDE);
 
同意隐藏任务栏的方法
在启动画面退出时再恢复
 
同意goodzp
 
设置Align为AlClient估计就行了.
 
后退
顶部