|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как прикрепить Label к Shape, при чем Shape создается через TShape.Create(self)?
Т.е. если размеры Shape меняются, то Label перемещается относительно его, допустим, левого края.
|
#2
|
||||
|
||||
Когда изменяешь координаты (положение) шейпа, то соответственно и изменяй координаты лейбела...
То бишь как-то так: Код:
label1.Left := shape1.Left - shape1.Width div 2 - label1.Width; // или так: label1.Left := shape1.Left - shape1.Width div 2; // если надо не отступать от шейпа... label1.Top := shape1.Top; Помогаю за Спасибо |