关于分辨率和窗口最大化问题(100分)

  • 主题发起人 主题发起人 Bkhswrp
  • 开始时间 开始时间
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); //恢复用sw_restore
end ;
 
楼上那一招3cs的是一样的,还是没有解决我的问题。
 
这个看起来很简单的问题难道不容易解决么?关注中!!!!!!
 
更改机子的分辨率是不大妥当的

根据分辨率相应的扩大或缩小代码如下:
const /////////////////////////////////////////////////////
Orignwidth=800; //
Orignheight=600;
begin //
scaled:=true;
if (screen.width<>orignwidth) then //
begin
height:=longint(height)*longint //
(screen.height) div orignheight; //分辨率
width:=longint(screen.width)*longint
(screen.width) div orignwidth; //
scaleby(screen.width , orignwidth);
end;

end;
此代码可写入create/ active /show 等事件中,具体情况自己斟酌
我的帖子里面有更多的介绍
 
seeyouknowme讲的方法很值得试一试
但是scaleby好像不能改变内置组件的Top,left位置,不改变位置而只改变
大小这样会出显示问题的吧,就像人放大了,眼睛也放大了,眼睛的位置肯
定也变掉了,用Scableby就达不到这样的效果。
 
Up!!!难道是分太少了???
 
恐怕你没有仔细对照,字体,位置同时也在变化,只不过他的变化的比例没有窗体的大
他们的比例5:3左右,如果你防一个panel,此时再控制一下窗体大小,那么,主要问题
控件大小的改变,就得到比较好的解决。
 
seeyouknowme的方法可行。应该让你的程序自动适应机器分辨率。
 
后退
顶部