Процедура перемещения картинки (Delphi) - Помощь студентам

detalik · 14.04.2011, 09:44

Здравствуйте, на форме есть картинки, также контекстное меню, в нем 2 пункт переместить картинку сверху вниз и вторая -наоборот, помогите пожалуйста написать процедуру для перемещения картинки. Спасибо.

Serge_Bliznykov · 14.04.2011, 10:04

передвинуть вниз на 10 пунктов:

Код:

  Image1.Top :=   Image1.Top + 10;

передвинуть вверх на 10 пунктов:

Код:

  Image1.Top :=   Image1.Top - 10;

fbus · 14.04.2011, 12:24

чтобы не "дергалось" надо установить
Form1.DoubleBuffered:=true;

detalik · 18.04.2011, 10:36

а как сделать, чтобы один раз нажимаешь - она перемещалась вниз, второй раз - перемещалась вверх? Попробовал так

Код:

if Image1.Top=0 then Image1.Top:=Image1.Top+220
  else
  Image1.Top:=Image1.Top-220;

. Картинка вообще пропадает...

MyLastHit · 18.04.2011, 10:50

Код:

Image1.Top=0

начальное положение у картинки точно top=0?

SERG1980 · 18.04.2011, 11:26

Цитата:

Сообщение от detalik

Картинка вообще пропадает...

Да всё же ОЧЕНЬ просто. У нас на форме нулевые координаты (х=0, у=0) находятся в левом верхнем углу. Соответственно чтобы сместить картинку вниз надо увеличить св-во Тор. Возьмите и на бумаге начертите вашу форму и прикидывайте где у вас получается имидж с такими координатами. Всё на столько просто что не знаю даже как объяснить

detalik · 18.04.2011, 12:22

все верно начальное положение top было 16

SERG1980 · 18.04.2011, 13:25

ну вот вам примерчик перемещения. Или вам надо анимированное перемещение?

detalik · 18.04.2011, 14:17

Не анимированное, Ваш проект у меня почему-то открывается с ошибкой и не запускается...

SERG1980 · 18.04.2011, 14:34

Не знаю почему, но даже если и так то просто скопируйте обработчик нажатия кнопки и перенесите в свою программу

14.04.2011, 09:44	#1
detalik Форумчанин Регистрация: 05.04.2011 Сообщений: 115	Процедура перемещения картинки (Delphi) Здравствуйте, на форме есть картинки, также контекстное меню, в нем 2 пункт переместить картинку сверху вниз и вторая -наоборот, помогите пожалуйста написать процедуру для перемещения картинки. Спасибо.

14.04.2011, 10:04	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	передвинуть вниз на 10 пунктов: Код: `Image1.Top := Image1.Top + 10;` передвинуть вверх на 10 пунктов: Код: `Image1.Top := Image1.Top - 10;`

18.04.2011, 10:36	#4
detalik Форумчанин Регистрация: 05.04.2011 Сообщений: 115	а как сделать, чтобы один раз нажимаешь - она перемещалась вниз, второй раз - перемещалась вверх? Попробовал так Код: `if Image1.Top=0 then Image1.Top:=Image1.Top+220 else Image1.Top:=Image1.Top-220;` . Картинка вообще пропадает...

18.04.2011, 10:50	#5
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Код: `Image1.Top=0` начальное положение у картинки точно top=0? Ненавижу быть как все, но люблю, чтобы все были как я.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Delphi, процедура для включения прокси	ak3000	Работа с сетью в Delphi	9	28.09.2008 19:24
Процедура заполнения массива. Delphi	Alex_2017	Помощь студентам	1	02.06.2008 17:55
массив tedit и процедура с ним(delphi)	xbIm	Помощь студентам	2	21.02.2008 23:57
Процедура на строку(Delphi)	blizzard	Помощь студентам	5	16.01.2008 18:33
процедура ping в Delphi	xTANATOSx	Общие вопросы Delphi	3	11.10.2007 10:32

14.04.2011, 12:24	#3
fbus Форумчанин Регистрация: 23.10.2008 Сообщений: 460	чтобы не "дергалось" надо установить Form1.DoubleBuffered:=true;

18.04.2011, 12:22	#7
detalik Форумчанин Регистрация: 05.04.2011 Сообщений: 115	все верно начальное положение top было 16

18.04.2011, 14:17	#9
detalik Форумчанин Регистрация: 05.04.2011 Сообщений: 115	Не анимированное, Ваш проект у меня почему-то открывается с ошибкой и не запускается...