J'aimerais pouvoir animer une image en l'agrandissant et en la mettant au premier plan juste quand la souris passe dessus cette image, quand la souris n'est plus dessus j'aimerais que l'image redeviennent comme avant. Merdi d'avance je ne trouve que des codes avec des clic

Bonjour katharos,

Je pense que tu as trouvé facilement l'évènement OnMouseMove de ton TImage qui est appelé lorsque la souris passe au dessus de l'image.

Le problème est que tu n'auras pas d'évènement pour te signaler que la souris n'est plus sur l'image.

Tu peux créer un timer qui après un certain temps (1000 ms par exemple) effectuera ce contrôle. Voici un exemple de code :

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  // Ici ton code pour agrandir l'image ...

  // Armer le timer
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Regarder si la souris est en dehors de l'image
  if (Mouse.CursorPos.X-Form1.Left < Image1.Left) or
     (Mouse.CursorPos.X-Form1.Left > Image1.Left+Image1.Width) or
     (Mouse.CursorPos.Y-Form1.Top < Image1.Top) or
     (Mouse.CursorPos.Y-Form1.Top > Image1.Top+Image1.Height) then
  begin
    // Ici ton code pour réduire l'image ...

    // Désarmer le timer
    Timer1.Enabled := False;
  end;
end;

Il y a peut-être mieux mais en tout cas cette solution fonctionne ...

salut,

juste un "trucs" pour simplifier:

PtInRect

if not PtInRect(image1.boudsrect, Mouse.cursorpos) then
// (de mémoire)

A+

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Oui merci j'avais trouvée OnMouseMove (bonne idée le timer) mais j'ai encore un probleme dans ton code tu as mis //Ici ton code pour agrandir l'image ... mais cette image ne s'agrandie pas. Aurai je oublié quelque chose j'ai juste fait :

   Image1.Height := 482;
   Image1.Width := 706;

à la place de Ici ton code pour agrandir l'image dans le OnMouseMove. Merci

Merci Loda mais je suis débutante, ou doi je placé ce test. Je suis alé voir l'aide de delphi la dessus mais je ne vois pas vrément son utilité

Salut,

personnellement j'utiliserais OnMouseEnter et OnMouseLeave qui, me semble, sont bien plus appropriés et du coup plus besoin de Timer ni de PtInRect

Et pour ton problème de taille il faut aussi penser à mettre la propriété Stretch du TImage à True pour voir les changements de taille

 
@+
Cirec

---

Bonjour Cirec,

En ce qui concerne la propriété Stretch, nos messages se sont croisés !

Par contre les évènements OnMouseEnter et OnMouseLeave ne sont pas codés dans TImage (sauf erreur de ma part) et je ne vois pas sur quels composants tu peux les accrocher.

Tout dépend de la version de Delphi

je viens de le faire sous Turbo Delphi:

//Propriétés à changer
//Image1.AutoSize:= False;
//Image1.Stretch := True;

procedure TForm1.Image1MouseEnter(Sender: TObject);
Var aRect : TRect;
begin
  aRect := Image1.BoundsRect;
  InflateRect(aRect , 3, 3);
  Image1.BoundsRect := aRect;
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
Var aRect : TRect;
begin
  aRect := Image1.BoundsRect;
  InflateRect(aRect , -3, -3);
  Image1.BoundsRect := aRect;
end;

sinon elle s'ajoutent très facilement

 
@+
Cirec

---