label.hieght

[Scoffer]

Люди добрые, подскажите!
В результате выполнения программы в label.caption загружается n-ное количество текста, каждый раз разное. Казалось бы растяни label с запасом и все. Ан нет. В форме за этим label'ом еще компоненты идут, поэтому необходимо, чтобы label.height подстраивался автоматически под размер текста. Как это можно провернуть?

[Роман Радер]

он и так сам подстраивается. только проверь, чтоб в проперте AutoSize=true было

[Scoffer]

autosize работает по ширине (width). У меня ширина фиксированая, изменяться должна высота (height). Тем более свойство wordwrap, которое переносит текст на след строку при autosize=true не работает...

[Revival001]

ну сделай AutoSize: = false
WordWrap: = true

[Aristarh Dark]

Scoffer, возми нормальный контрол, типа TMemo - многострочник с прокруткой, и не парься

[Роман Радер]

да, кстати попутный вопрос:
как у TMemo убрать курсор? или хотяб поменять его цвет...
искал в memo.perform но не нашел...

[Alter]

Сообщение от Роман Радер

да, кстати попутный вопрос:
как у TMemo убрать курсор? или хотяб поменять его цвет...
искал в memo.perform но не нашел...

Всё проще(наконец-то смог написать, инет глючил):

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Cursor := crNone;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
 HideCaret(Memo1.Handle); //можно так, если нужно чтобы при старте была видна каретка. При это убрать из "FormPaint".
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 HideCaret(Memo1.Handle);
end;

[Scoffer]

Сообщение от Revival001

ну сделай AutoSize: = false
WordWrap: = true

таким образом свойство height автоматически не изменяется...

Сообщение от Aristarh Dark

Scoffer, возми нормальный контрол, типа TMemo - многострочник с прокруткой, и не парься

дело в том, что мне все это для отчета надо quickrep, поэтому прокрутки не канают...

[Alter]

Ну почему же не работает, переноситься автоматом, без WordWrap(конечно можно самому на форме рисовать ещё):

[Johnson]

может быть, что wordwrap не работает из-за того, что лэйбл слишком "низкий" ?