Скачать: CL | DM;

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

← →
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]

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

---

← →
alxx ©   (2003-01-22 14:12) [11]

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

---

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

>>Думкин

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c