Скачать: CL | DM;

Как программно менять 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, то все то же самое будет происходить относительно правого нижнего угла.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.044 c