请问怎样使“Form”在屏幕上显示在需要的位置上? 如:显示在屏幕的正中央。谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Position是Form的一个属性.Form.Position := poScreenCenter //让窗体自动适应桌面大小procedure AutoAdaptForm(var AForm :TForm) ;var lpRect:TRect;begin SystemParametersInfo(SPI_GETWORKAREA,0,@lpRect,0); AForm.Left := lpRect.left; AForm.Top := lpRect.Top; AForm.width := lpRect.right - lpRect.left; AForm.Height := lpRect.bottom - lpRect.Top; AForm.Update ;end;把上面的代码改改应该可以。 Form.Position := poScreenCenter 按照设置Position属性的方法可以实现,但当在不同的计算机上显示时可能就会出现窗体的显示不正常 zfmich() 的方法更通用些 windows mediaplayer给播放列表添加项目 一个ADSL.一个4口PT—LINK,四台电脑,如何组内网!! delphi组件查询软件 菜鸟提问:帮我看看这个需求!! 很简单的一个数据库问题 多多指教! DBGRID 打印报表时,在页脚实现“当前页/总页数”? 寻找动画名字 东莞找工作(delphi) dbgrid 在adoquery添加记录后不会显示数据了,我该怎么办? 如何将一个form的屏幕保存下来,在一个image里面可以预览?谢谢 我要将菜单设置背景色,怎样实现。Tmenu.color怎么会出错?
Form.Position := poScreenCenter
procedure AutoAdaptForm(var AForm :TForm) ;
var
lpRect:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@lpRect,0);
AForm.Left := lpRect.left;
AForm.Top := lpRect.Top;
AForm.width := lpRect.right - lpRect.left;
AForm.Height := lpRect.bottom - lpRect.Top;
AForm.Update ;
end;把上面的代码改改应该可以。
但当在不同的计算机上显示时可能就会出现窗体的显示不正常
zfmich() 的方法更通用些