TLabel 可以wordwrap，但怎樣可以char wrap呢?

引言: TLabel 可以wordwrap，但怎樣可以char wrap呢?

不知道你的char是何值, 不過一般我都不用wordwrap, 而是直接指定 label1.caption:='....' chr(13) '...'

但我想它自動charwrap，不是手動

事實上在寫入Caption時，做一些判斷就可以了。 請將 AutoSize := false;WordWrap := False; 並拉大Label範圍為顯示範圍。    

procedure TForm1.Button1Click(Sender: TObject);
var
  I,CharW,TextW :Integer;
  WStr,DStr : WideString;
begin
  DStr := '';
  WStr := '有Delphi K.TOP 查資料真方便！';
  With Label1 do
  begin
    Canvas.Font := Font;
    TextW := 0;        if Canvas.TextWidth(WStr)>Width then
    begin
      { 文字長度不夠顯示處理 }
      For I:=1 to Length(WStr) do
      begin
        CharW := Canvas.TextWidth(WStr[I]);
        Inc(TextW,CharW);
        if TextW>Width then
        begin
          DStr  := DStr   WStr[I]   #13;
          TextW := 0;
        end else DStr := DStr   WStr[I];
      end;
    end;
    Caption := DStr;
  end;
end;

若文字有超過，帶表示你沒選擇正確的字型。 例如 中文字卻選擇英文字型。 參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～ 發表人 - wameng 於 2005/05/25 12:55:25