Смещение

← →
borg (2003-01-22 09:10) [0]

Можно ли сразу изменить положение многох компонентов на форме, то есть не присваивать каждому например:
label1.top:=label1.top+10; label2.top:=label2.top+10; .... button1.top:=button1.top+10; button2.top:=button2.top+10; \\\\\\
если каждый компонент смещается на одно и то же число?

← →
Думкин © (2003-01-22 09:34) [1]

можно.
например Components

← →
borg (2003-01-22 14:00) [2]

Но у Components нет свойства ТОР

← →
alxx © (2003-01-22 14:02) [3]

For i:=0 to ComponentCount do
(Components[i] AS TWinControl).Top:=(Components[i] AS TWinControl).Top+10

← →
BALU1111 © (2003-01-22 14:03) [4]

попробуй findcomponent, top там точно есть

← →
alxx © (2003-01-22 14:05) [5]

Ошибочка у меня. Там ComponentCount-1 надо поставить.

← →
Думкин © (2003-01-22 14:07) [6]

> alxx © (22.01.03 14:02)

Неплохо бы еще проверить тогда, что это TWinControl.
Лучше уж
(Components[i] AS TControl).Top:=(Components[i] AS TControl).Top+10
ну и еще is сунуть с проверкой - мало ли.

← →
REA © (2003-01-22 14:08) [7]

А не проще их сгруппировать на панели например и ее двинуть?

← →
alxx © (2003-01-22 14:09) [8]

Да точно. Проверить неплохо бы.

← →
borg (2003-01-22 14:09) [9]

>>alxx

Он ругается "invalid class typecast"

← →
borg (2003-01-22 14:10) [10]

это данные в отчёте поэтому их на панель не поместишь

Ну да ругается, потому что не проверено is перед тем как сделать as

← →
borg (2003-01-22 14:13) [12]

>>Думкин

спасибо всё работает как и надо

Смещение Найти похожие ветки