Движение компонентов.

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

> 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).

Hotja vse, razobralsja.

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