перемещение memo по image

@batmanrider · Регистрация: 20.09.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте, вот допустим, я создал memo, как сделать чтобы за верхние углы я мог перемещать изменять размеры мемо, как в Paint, но только по Image1?

@zuxa-zuxa · 11.05.2012, 16:06

Сделай так:

Delphi

1	if memo1.top+Memo1.height>Image1.top+image1.height then memo1.top:=Image1.top+image1.height-1;

как то так. Ну когда она заходит за пределы картинки то обратно соскальзывает.

@batmanrider 21 / 22 / 2 Регистрация: 20.09.2011 Сообщений: 196 Записей в блоге: 1
		1
	перемещение memo по image 11.05.2012, 15:51. Показов 1236. Ответов 1 Метки нет (Все метки) Здравствуйте, вот допустим, я создал memo, как сделать чтобы за верхние углы я мог перемещать изменять размеры мемо, как в Paint, но только по Image1? 0

	11.05.2012, 16:06

перемещение memo по image

Решение