Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.10;
Скачать: 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 вся ветка

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.08 c
2-1156158585
XTD
2006-08-21 15:09
2006.09.10
Как убрать пробелы слева справа строки S ?


2-1155806582
zdm
2006-08-17 13:23
2006.09.10
MySQL


1-1154090907
Calibr
2006-07-28 16:48
2006.09.10
CorelDRAW


15-1155471301
Desdechado
2006-08-13 16:15
2006.09.10
Что скажете о качестве дисков Omega


3-1151685989
Bad tester
2006-06-30 20:46
2006.09.10
Подскажите как лучше работать с базой данных MySQL из Делфи?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский