fenetre qui fuit la souris

Bonjour !!!

j'avais vu un jour un programme fait de tel sorte que dès qu'on approchait la souris de la fenetre celui-ci, la fenetre partait vers une autre zone de l'ecran.
Si quelqu'un connait le bout de code ou la fonction qui puisse gerer cela se serait sympa ;) merci :)

Citation:

---

Envoyé par Nurs

Bonjour !!!

j'avais vu un jour un programme fait de tel sorte que dès qu'on approchait la souris de la fenetre celui-ci, la fenetre partait vers une autre zone de l'ecran.
Si quelqu'un connait le bout de code ou la fonction qui puisse gerer cela se serait sympa ;) merci :)

---

????? C'est tout con à faire avec BC ++ : tu récupères les coordonnées avec Mouse->X et Mouse->Y et selon ces coordonnées tu repositionnes la fenêtre selon tes souhaits avec Pos->X et Pos->Y

serait t'il posiblrde rediger une source clair ??
car c'est assez imcomprehensible !!

Salut !

Exemple en utilisant un TTimer dont on fixe Interval à 10 :
(Form2->FormStyle = fsStayOnTop)

Code:

---

1 2 3 4 5 6

void __fastcall TForm1::Timer1Timer(TObject *Sender) { TPoint Pos; GetCursorPos(&Pos); Form2->SetBounds(Pos.x + 16, Pos.y + 16, Form2->Width, Form2->Height); }

---

Ici, la fenêtre Form2 se comporte comme une info bulle.
Il faut veiller à ce que Point(Left,Top) ne soit pas identique à Pos, en permanence !
Il suffit de remplacer l'offset (+16) par un random de tel sorte que...

A plus !

Salut il y a une autre solution qui n'utilise pas de timer.

Il suffit pour cela de recupérer l'évènement OnMouseMove de la fiche Form1.

Donc dans l'évènement OnMouseMove de ta fiche tu place le code suivant :

Code:

---

1 2 3 4 5 6 7

int x = random((Screen->Width)-(Form1->Width)); /* On choisit un valeur aléatoire de x comprise entre 0 et la largeur de l'écran moins la largeur de la fiche (pour éviter q'une partie de la fiche ne soit cacher)*/   int y = random((Screen->Height)-(Form1->Height)); /* On choisit un valeur aléatoire de y comprise entre 0 et la longueur de l'écran moins la longuer de la fiche*/   Form1->Left = x; Form1->Top = y; //On deplace la fenetre avec les coordonnées aléatoires défini ci dessus

---

Par contre avec cette technique il est facile de fermer la fenetre en cliquant sur fermer car l'évènement OnMouseMove se déclanche seulement l'orsque la souris passe sur la fiche et non sur la barre système. 8)

Amuse toi bien :wink: