Изменение размеров потомка TCustomGroupBox

← →
Denis_Ac (2004-12-10 09:40) [0]

Проблема в следующем: Есть наследник TCustomGroupBox, перекрываем прорисовку, и добавляем обработку на мышь в WndProc.
Имеется регион(HRGN) если тыкнули в регион, то должны изменится размеры. Не могу правильно изменить свойства Left, Top. Компонент просто перемещается, а в редакторе объектов всё нормально изменяется.

← →
Igorek © (2004-12-11 12:51) [1]

> Не могу правильно изменить свойства Left, Top.

Ошибочное поведение детальнее опиши.

> Компонент просто перемещается, а в редакторе объектов
> всё нормально изменяется.

А как должно быть?

← →
Denis_Ac (2004-12-14 08:40) [2]

Допустим присвоим Align:=alLeft. Изменяя свойства Width можно добиться определённых размеров. А если Align:=alRight, то как подогнать компонент к нужным размерам?

> > Компонент просто перемещается, а в редакторе объектов
>
> > всё нормально изменяется.
>
> А как должно быть?

Допустим лежит на форме компонент GroupBox. Изменяя(Допустим перетаскивая левую границу) Left мы изменяем не положение на форме а размеры. А когда я программно изменяю у своего компонента он перемещается.

Denis_Ac (14.12.04 8:40) [2]

> Допустим присвоим Align:=alLeft. Изменяя свойства
> Width можно добиться определённых размеров. А если
> Align:=alRight, то как подогнать компонент к нужным
> размерам?

Абсолютно аналогично.

> Допустим лежит на форме компонент GroupBox.
> Изменяя(Допустим перетаскивая левую границу) Left мы
> изменяем не положение на форме а размеры.

Для начала опредились какие свойства для тебя означают размер, а какие - положение.
Потом посмотри что изменяется в свойствах обьекта, когда перетаскиваешь левую (и другие) границы. Но только с alNone.
И ты поймешь логику работы редактора формы.

Ну и под конец глянь процедуру SetBounds.

Изменение размеров потомка TCustomGroupBox Найти похожие ветки