Как программно менять Anchors?

← →
negrila (2004-05-28 19:29) [0]

Ничего у меня не получается. Делаю так:
TLabel(CurrentObj).Anchors := [];
if CheckBox1.Checked then
TLabel(CurrentObj).Anchors := TLabel(CurrentObj).Anchors + [akLeft];
if CheckBox2.Checked then
TLabel(CurrentObj).Anchors := TLabel(CurrentObj).Anchors + [akTop];
if CheckBox3.Checked then
TLabel(CurrentObj).Anchors := TLabel(CurrentObj).Anchors + [akRight];
if CheckBox4.Checked then
TLabel(CurrentObj).Anchors := TLabel(CurrentObj).Anchors + [akBottom];

← →
TUser © (2004-05-28 22:32) [1]

Не проверял твой код, но попробуй его для, скажем TMemo. Вроде, должно работать. А TLabel просто пишет надпись указанным в св-ве TFont шрифтом. Поэтому визуального эффекта от изменения Anchors не будет. Надо менять шрифт и выравнивание.

← →
miwa © (2004-05-29 07:30) [2]

А еще там есть такие подлые свойства как WordWrap(false by default) и AutoSize(true by default) :о)).

← →
Геннадий (2004-05-29 09:46) [3]

А на что влияет свойство Anchors ? Якоря чего? Я когда их меня в Диспетчере объектов - ничего не происходит. Но они сами меняются при изменении св-ва Align.

← →
negrila (2004-05-29 10:08) [4]

Свойство Anchors указывает расстояние от какого края рамки окна буду константой для элемента при изменении оконных размеров. Если ты ставишь akLeft и akTop(по умолчанию), то при любом изменении размера элемент на окне будет позиционироваться на расстоянии Left от левой границы и на расстоянии Top от верхней. А вот если ты сделаешь akRight и akBottom, то все то же самое будет происходить относительно правого нижнего угла.

Как программно менять Anchors? Найти похожие ветки