Перемещение Image за курсором

@Atsa · Регистрация: 10.03.2012

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

Всех с праздником))

Все кому я показываю свою курсовую игру,
говорят что неплохо, но надо сделать так чтобы
рука с пистолетом двигалась вслед за курсором...
Вот я и решил удовлетворить требования друзей)
И прошу вашей подсказки-помощи, как же сделать так чтобы
image двигалась вслед за курсором именно по оси ОХ и не уходила за границы формы?
Буду благодарен всем откликнувшимся)

@Arcor · 01.04.2012, 14:07

Delphi

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Left := X;
end;

но если не быстро водить

@Atsa · 01.04.2012, 14:10 **[ТС]**

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

Delphi

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Left := X;
end;

но если не быстро водить

А если быстро?

@Arcor · 01.04.2012, 14:17

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;
begin
  GetCursorPos(p);
  Image1.Left := p.x;
  if Image1.Left < 0 then
    Image1.Left := 0;
  if Image1.Left > ClientWidth - Image1.Width then
    Image1.Left := ClientWidth - Image1.Width
end;

@Atsa 2 / 2 / 1 Регистрация: 10.03.2012 Сообщений: 69
		1
	Перемещение Image за курсором 01.04.2012, 13:56. Показов 5070. Ответов 3 Метки нет (Все метки) Всех с праздником)) Все кому я показываю свою курсовую игру, говорят что неплохо, но надо сделать так чтобы рука с пистолетом двигалась вслед за курсором... Вот я и решил удовлетворить требования друзей) И прошу вашей подсказки-помощи, как же сделать так чтобы image двигалась вслед за курсором именно по оси ОХ и не уходила за границы формы? Буду благодарен всем откликнувшимся) 0

	01.04.2012, 14:17