Картинка за мышкой

[quarty]

Как сделать чтоб позиция картинки была равна позиции курсора? и как сделать курсор невидемый?
Заранее спасибо

[Valio]

Убрать курсор ShowCursor(false).
OnMouseMove?

[MyLastHit]

OnMouseMove чего? Мышки?
Тут через таймер будет надежнее. Автор хочет поместить в свое приложение свой курсор?
Событие таймера:

var Mous:TMouse;
begin
  pict.left:= form1.width - Mous.CursorPos.x;
  pict.top:= Mous.CursorPos.y - form1.heght;
end;

Компилятора под рукой нет. Так что проверь, если не то - то местами поменяй:

  pict.left:= Mous.CursorPos.x - form1.width;
  pict.top:= form1.heght - Mous.CursorPos.y;

[Valio]

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

OnMouseMove чего? Мышки?
Тут через таймер будет надежнее.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Form1.Caption := IntToStr(X) + ' X ' + IntToStr(Y);
end;

[MyLastHit]

Блин. Туплю. Так раз в 100 проще
+

[quarty]

Спасибо, а где задавать путь к картинке которая будет бегать за курсором?

[MyLastHit]

В онкриэйт формы.

var pict:TImage;
begin
  pict:=TImage.create(self);
  with pict do 
  begin
    parent:=form1;
    left:=...;
    top:=...;
    hight:=...;
    width:=...;
    {или autosize:=true;}
    picture.loadfromfile('путь');
  end;
end;

Может тебе стоило бы начать с чего нибудь попроще? Просто такое ощущение, что ты сам не понимаешь чего именно тебе нужно...

[quarty]

MyLastHit,
Спасибо большое