关于全屏显示的问题(20分)

  • 主题发起人 主题发起人 archonwang
  • 开始时间 开始时间
A

archonwang

Unregistered / Unconfirmed
GUEST, unregistred user!
能不能告诉我怎么让一个form在运行的时候全屏显示,不知道在screen里面有没有这个可直接使用的方法?
 
form的属性windowstate设为wsMaximized
 
Form1.WindowState := wsMaximized;//最大化不可以吗?写在OnFormCreate里
 
你的全屏是什么概念?是不是要得到像一些播放软件全屏显示的效果?
如果是,那你完全可以设置窗体为bsNone,left为0,top为0,width为screen.width,height为screen.height。
 
from 的align 属性设 alclient,就可以了!
 
form的属性windowstate设为wsMaximized
 
我看你 是想把窗体的状态栏隐藏了吧?
procedure TForm1.hidetaskbar;
var
wndhandle:thandle;
wndclass:array[0..50] of char;
begin
strpcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
showwindow(wndhandle,sw_hide);
end ;
以上这个过程就可以满足你的要求了!
 
实际上,我想知道的是整个form上的所有的组件都会放大到相对的比例,
 
以上说的办法可以实现form的全屏,但是组件不能够被放大,有人可以告诉我吗?
 
所有组件的Anchors属性设为True
hehe....
 
bsNone,left为0,top为0,width为screen.width,height为screen.height
 
Nstar
能解释的更详细些吗?
 
可以设置组件的Anchors属性,可以控制组件的对齐方式,你可以将相应的对齐方式设置为true或者false;
 
多人接受答案了。
 
后退
顶部