怎样设置FORM在不同分辨率下都能完整显示内容啊? 我在1024*768下做的界面但到了800*600就不能完整显示了。怎么办啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试吧:implementation const ScreenWidth:LongInt=800; ScreenHeight:LongInt=600; {$ R*.DFM} procedure TMainForm.FormCreate(Sender:TObject); var OldFormWidth:integer; begin Scaled:=TRUE; if(Screen.width<> ScreenWidth)then begin OldFormWidth:=Width Height:=longint(Height)*longint(Screen.Height)DIV S creenHeight; Width:=longint(Width)*longint(Screen.Width)DIV Scre enWidth; ScaleBy(Screen.Width,ScreenWidth); Font.Size:=(Width DIV OldFormWidth)*FontSize; end; end; WndProc中关于inherited的位置 求解,网络语音聊天 很急! 100分!:做了一个组件 实现属性的下拉列表显示 可是安装之后没有效果 帮帮忙看一下代码哪里有毛病!!!!! 我办了个二手编程书交流处(上海) 那儿有DELPHI6\7的最新补丁下载? 请教大虾一个问题 字符串变量赋值后长度超出问题 ----急需指点 我想用程序控制数码相机照相不知道如何编写或有没有其它控件? ####快来看那!! 如何在用了TRY...EXCPT后,还可以拦截异常报错信息? 关于Ocx,Dll Active 控件的卸载???? 哪儿能下Delphi 7 .1 update ,绝对给分
implementation
const
ScreenWidth:LongInt=800;
ScreenHeight:LongInt=600;
{$ R*.DFM}
procedure TMainForm.FormCreate(Sender:TObject);
var
OldFormWidth:integer;
begin
Scaled:=TRUE;
if(Screen.width<> ScreenWidth)then
begin
OldFormWidth:=Width
Height:=longint(Height)*longint(Screen.Height)DIV S creenHeight;
Width:=longint(Width)*longint(Screen.Width)DIV Scre enWidth;
ScaleBy(Screen.Width,ScreenWidth);
Font.Size:=(Width DIV OldFormWidth)*FontSize;
end;
end;