5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
gzmhero 2001-09-22
- 打赏
- 举报
使任务栏不显示，需要添加代码。
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE);
别忘记程序退出时设为可见
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE);
别忘记程序退出时设为可见
guipei 2001-09-22
- 打赏
- 举报
再设置窗口为最前，就可以了。
knock 2001-09-22
- 打赏
- 举报
都不能覆盖任务栏啊？
wqspine 2001-09-22
- 打赏
- 举报
1.form1.height:=screen.Height;
form1.width:=screen.width;
2.From1.BordStyle:=bsNone;
Form1.Align:=alClient;
3.form1.windowstate := wsMaximized;
form1.width:=screen.width;
2.From1.BordStyle:=bsNone;
Form1.Align:=alClient;
3.form1.windowstate := wsMaximized;
wwwxxx 2001-09-22
- 打赏
- 举报
把form的borderstyle属性改为none不就可以了？
knock 2001-09-22
- 打赏
- 举报
好象只能最大化显示啊？
lianghu 2001-09-22
- 打赏
- 举报
楼上的说了
machin 2001-09-22
- 打赏
- 举报
哦！！被楼上老兄抢先了。。。。
gzmhero 2001-09-22
- 打赏
- 举报
TFrom.BordStyle:=bsNone;
TForm.Align:=alClient;
TForm.Align:=alClient;
jianping0 2001-09-22
- 打赏
- 举报
tform.Borderstyle := Bsnone;
tform.windowstate := wsMaximized;
tform.windowstate := wsMaximized;
hkhurus 2001-09-22
- 打赏
- 举报
tform.windowstate := wsMaximized;
