Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: 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 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-1085589870
}|{yk
2004-05-26 20:44
2004.06.13
Вопрос к харьковчанам


3-1084733999
Dmitry Vyacheslavovich
2004-05-16 22:59
2004.06.13
ещё одна проблема с редактированием DB


3-1084970091
nik7777
2004-05-19 16:34
2004.06.13
Ошибка: Invalid Blob ID


14-1085730236
Mad Dancer
2004-05-28 11:43
2004.06.13
Работа с картинками


3-1085207988
KADAN
2004-05-22 10:39
2004.06.13
[Warning] Unit2.pas(44): Unsafe type TBookmark