Автоперерисовка statictext

[Алексей_2012]

Здравствуйте, как сделать так, чтоб при изменении размеров формы statictext1 увеличивался в высоту или уменьшался в зависимости от загруженного в statictext текста? statictext1.Autosize:=false; есть, и statictext принимает размеры заданные в процессе программирования, а как сделать так чтобы он сам менял высоту в зависимости от текста и/или размеров формы? ( Anchors настроен по akLeft,akRight)

[Stilet]

В лоб нескромный вопрос, может даже не в тему: StaticText заменить на Мемо не катит?

[Алексей_2012]

не катит, в эту метку будет подгружаться текст из файла, пишу тест

[Аватар]

не катит

Это как? В мемо нельзя текст подгрузить? А высотой StaticText можно управлять изменяя размеры его фонта. Ручками, без всяких на автомате. Можно еще якорь за воттом зацепить или использовать св-во алигн

[Алексей_2012]

не хочу использовать мемо в этих целях, а анкорс не решает проблем с количеством строк, в общем сам пытаюсь сейчас что-то сделать, то что получилось-выложу, а если кто помочь может, то спасибо, кстати, возникла еще проблема, разыгрывается число от 1 до 3, ну с помощью рандома (rand1:=random(4)), как исключить вывод 0?

[phomm]

Включи математическую думалку .

a := Random(3) + 1;

Про статиктекст не подскажу, не понимаю зачем такие жертвы, есть же и лейбл с wordrap и мемо с readonly