Les images et les curseurs

Résolu
cs_JackNUMBER Messages postés 233 Date d'inscription jeudi 30 septembre 2004 Statut Membre Dernière intervention 26 juin 2011 - 27 déc. 2004 à 12:03
cs_JackNUMBER Messages postés 233 Date d'inscription jeudi 30 septembre 2004 Statut Membre Dernière intervention 26 juin 2011 - 27 déc. 2004 à 13:06
voila:
je suohaiterai pouvoir faire suivre le curseur par une image (pourriez-vous m'indiquez si il faut 1 certains composant)

merci.

---------------------
Jack NUMBER
---------------------

2 réponses

ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
27 déc. 2004 à 12:42
Essaie comme ça (bien sûr, il faut que ton appli soit en plein écran, sinon l'image se bloque sur un bord de ta form....) :
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Top := Y + 10;
Image1.Left := X + 10;
end;


@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ;)
3
cs_JackNUMBER Messages postés 233 Date d'inscription jeudi 30 septembre 2004 Statut Membre Dernière intervention 26 juin 2011 5
27 déc. 2004 à 13:06
merci. :)
c'est exactement la réponse que j'aurai voulu avoir ;)

---------------------
Jack NUMBER
---------------------
0
Rejoignez-nous