Перемещение PaintBox - Помощь студентам

Evaeva123 · 25.04.2015, 19:25

Как сдалать так,чтобы PaintBox перемещался за курсором мыши?

newerow1989 · 26.04.2015, 09:57

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var p:tPoint;
begin
   GetCursorPos(p);
   PaintBox1.Left:=p.X-Form1.Left;
   PaintBox1.Top:=p.Y-Form1.Top;
end;

Сойдет?

25.04.2015, 19:25	#1
Evaeva123 Регистрация: 18.04.2015 Сообщений: 9	Перемещение PaintBox Как сдалать так,чтобы PaintBox перемещался за курсором мыши?

26.04.2015, 09:57	#2
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,987	Код: `procedure TForm1.Timer1Timer(Sender: TObject); var p:tPoint; begin GetCursorPos(p); PaintBox1.Left:=p.X-Form1.Left; PaintBox1.Top:=p.Y-Form1.Top; end;` Сойдет? С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
paintBox	Фобия	Помощь студентам	1	13.06.2011 02:08
PaintBox	Fintroll	Windows Forms	1	11.04.2011 01:01
PaintBox	_-Re@l-_	Общие вопросы Delphi	11	23.06.2010 12:54
Paintbox	lacost	Мультимедиа в Delphi	3	14.01.2009 09:53
paintbox	steck	Общие вопросы Delphi	5	28.10.2007 16:15