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

Движение компонентов.   Найти похожие ветки 

← →
Alral ©   (2006-08-17 16:09) [0]

Вопрос: я сделал обработчик нажатия на определённую клавишу,  при нажатии на эту клавишу должен двигаться в определенную сторону компонент (TLabel). То есть изменяются свойства Label1.Top и Label1.Left. Как сделать, чтобы этот компонент не выходил за форму (не пропадал, когда переходит через край, а остонавливался). Когда сделал в функции Form1.OnKeyPress так: if Label1.Top<0 then Label1.Top:=Label1.Top+1;  он у меня вобще не двигался, хотя находился в самом низу формы и имел значение Top=488.

---

← →
Ega23 ©   (2006-08-17 16:13) [1]

Точка начала координат (0,0) - в левом верхнем углу.
Ось Х идёт оттуда слева-направо.
Ось Y идёт оттуда сверху-вниз.

---

← →
Alral ©   (2006-08-17 16:16) [2]

Nu da, ja znaju, naskolko uja ponimaju, Label1.Top-znachenie Y verha Label, a Label1.Left-znachenie X levoi chasti Label.

---

← →
umbra ©   (2006-08-17 16:25) [3]

> if Label1.Top<0 then Label1.Top:=Label1.Top+1;

а если Label1.Top>0, то что? приведите весь код OnKeyPress, пожалуйста

---

← →
novill ©   (2006-08-17 16:40) [4]

> if Label1.Top<0 then Label1.Top:=Label1.Top+1;  он у меня
> вобще не двигался, хотя находился в самом низу формы и имел
> значение Top=488.

И не должен был

---

← →
Loginov Dmitry ©   (2006-08-17 17:39) [5]

Label1.Top:=Label1.Top+Value;
if Label1.Top < 0 then Label1.Top := 0;
if Label1.Top > Self.Height - Label1.Height then
 Label1.Top := Self.Height - Label1.Height;

---

← →
Alral ©   (2006-08-17 19:08) [6]

> novill ©   (17.08.06 16:40) [4]
>
> > if Label1.Top<0 then Label1.Top:=Label1.Top+1;  он у меня
> > вобще не двигался, хотя находился в самом низу формы и
> имел
> > значение Top=488.
>
> И не должен был

Pochemu ne dolzen?

> umbra ©   (17.08.06 16:25) [3]
>
>
> > if Label1.Top<0 then Label1.Top:=Label1.Top+1;
>
> а если Label1.Top>0, то что? приведите весь код OnKeyPress,
>  пожалуйста

To on dolzen ostanovitsja, ved ne objazatelno vsegda privodit "else"(na skolko mne izvestno).

---

← →
Alral ©   (2006-08-17 19:14) [7]

Hotja vse, razobralsja.

---

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

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



Память: 0.46 MB
Время: 0.026 c