Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Смещение [D6, Win95/98, WinXP]

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

borg (2003-01-22 14:13:00) [1]
>>Думкин

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

alxx (2003-01-22 14:12:00) [2]
Ну да ругается, потому что не проверено is перед тем как сделать as

borg (2003-01-22 14:10:00) [3]
это данные в отчёте поэтому их на панель не поместишь

alxx (2003-01-22 14:09:00) [4]
Да точно. Проверить неплохо бы.

borg (2003-01-22 14:09:00) [5]
>>alxx

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

REA (2003-01-22 14:08:00) [6]
А не проще их сгруппировать на панели например и ее двинуть?

Думкин (2003-01-22 14:07:00) [7]

> alxx © (22.01.03 14:02)

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

alxx (2003-01-22 14:05:00) [8]
Ошибочка у меня. Там ComponentCount-1 надо поставить.

BALU1111 (2003-01-22 14:03:00) [9]
попробуй findcomponent, top там точно есть

alxx (2003-01-22 14:02:00) [10]
For i:=0 to ComponentCount do
(Components[i] AS TWinControl).Top:=(Components[i] AS TWinControl).Top+10

borg (2003-01-22 14:00:00) [11]
Но у Components нет свойства ТОР

Думкин (2003-01-22 09:34:00) [12]
можно.
например Components

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »