Высота текста

[k1r1ch]

Здравствуйте! Есть следующая проблема: на форме есть панель, на панели - лэйбл. У него стоит AutoSize=false и WordWrap=true. Мне нужно, чтобы он менял высоту в зависимости от оной у текста внутри. Ну и панель с ним увеличивалась. Но как определить высоту текста, если в тексте могут быть #10#13-переводы строк, а также строки могут самопроизвольно переноситься из-за ограниченной ширины лэйбла. Вроде высоту можно узнать так: Label.Canvas.TextHeight(Label.Capti on), но размер при этом становится меньше даже одной строки. Как быть?

[Sibedir]

  Label1.AutoSize := True;
  Label1.WordWrap := True;
  Label1.Caption := s;
  Label1.Width := 300;

Ширина всегда останется 300. Переносы по #13 будут соблюдены. Автоматическая расстановка переносов работает.

[Fuadik]

Попробуйте
#
Label1.AutoSize:=true;
Label1.WordWrap:=false;
Label1.Caption:='DDDddddd'+#13+'nnn nnn nnnnnnnn';
Label2.Caption:=
IntToStr(Label1.Height);
#
Расставить #13 надо самому.

[Sibedir]

-------------------------------

[eoln]

А почему бы не заменить Label на Memo? Тогда высоту можно регулировать по количеству строк, например, memo1.Height := memo1.Lines.Count * 13; где 13 - это высота для одной строчки (включая межстрочное расстояние). А чтоб визуально было как label, так просто свойства поменять.