Question

Delphi字符串换行

Canvas.TextOut(10, 10, '个数\n 6');这里怎么换行？

Answer 1

TextOut不能实现自动换行，如果要实现自动换行，可以考虑用DrawText。

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    rect:TRect;
begin
   s:='个数'+#10#13+'6';
   Rect.Left := 20;
   Rect.Top := 20;
   Rect.Right:= 20 + 100;
   Rect.Bottom:= 20 + 100;
   //Form1.Canvas.TextOut(10, 10,s);
   DrawText(Self.Canvas.Handle,PChar(s),-1,rect, DT_LEFT);
end;

Answer 2

1如许就可以了label1.Caption:='设置好时光后，根据'+#10#13+'时光选择右边的┞肥套';在窗体的oncreate事宜中参加留意：label1的autosize必须为true;在默认下也为true.