怎样将Form的Caption设置在窗体中央(0分)

  • 主题发起人 主题发起人 dfly
  • 开始时间 开始时间
利用panel的组合,用多个panel通过用它的align来实现。
例如你放5个panel,中间那个的align=alClient

.....
 
计算窗体的宽度,计算CAPTION的宽度,适当的在CAPTION前面加空格,搞定!
不好意思,可能这个解决办法太笨拙,你再看看高手们的精妙办法吧!我就只能这招了。
 
hehe,我的想法跟fbyang兄的一样,可能都比较苯 ^________^
del520,你好像没有看明白楼主的意思
 
我来实现fbyang的方法
var
strCaption:AnsiString;
iCaptionLen:integer; //标题宽度
iFormWidth:integer; //窗体宽度
iSpaceCount:integer; //应家空格数
i:integer; //循环
begin
strCaption:='';
iCaptionLen:=Length(Form1.Caption);
iFormWidth:=Form1.Width;
iSpaceCount:=(iFormWidth-iCaptionLen) div 2;
for i:=0 to iSpaceCount-1 do
strCaption:=strCaption+' '; //注意后面的空格
strCaption:=strCaption+Form1.Caption; //放在中间
end;
 
有一个API可以做到,不过我一时想不起来了[:(]
 
后退
顶部