换个方法,希望有用:
var
vStrLen: Integer;
S: string;
begin
vStrLen := Length(S) * GetTextLen;
while vStrLen > Panel1.Width do
begin
vStrLen := vStrLen - Panel1.Width;
Insert(#$D#$A, S, Panel1.Width div GetTextLen); //还会有些宽
//但好调整多了。
end;
Label1.Caption := s; //Label1的Parent是Panel1。
var
vStrLen: Integer;
S: string;
begin
vStrLen := Length(S) * GetTextLen;
while vStrLen > Panel1.Width do
begin
vStrLen := vStrLen - Panel1.Width;
Insert(#$D#$A, S, Panel1.Width div GetTextLen); //还会有些宽
//但好调整多了。
end;
Label1.Caption := s; //Label1的Parent是Panel1。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货