Discussion :

[Nioube]

Bonjour à tous.

Pas très balèse avec Delphi, j'ai le problème suivant.

Sur une image de fond (TImage), j'ai dessiné deux rectangles.
Quand la souris entre dans le premier, je voudrais qu'elle change d'aspect (crCross). Quand elle en sort, elle reprend son aspect ordinaire (crArrow). Quand elle entre dans le second rectangle, elle prend l'aspect d'une main (crHandPoint).
J'ai tenté d'utiliser PtInRect dans l'évènement OnMouseMove du TImage mais une chose me chagrine : a chaque fois que la souris se déplace à l'intérieur d'un rectangle, mon code impose un changement de souris, ce qui génère un traitement inutile. Ce que je veux dire, c'est que l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonImage.cursor := crCross;

est executée à chaque fois que ma souris se déplace ne serait-ce que d'un pixel à l'intérieur d'un rectangle. Ca ne me convient pas.

Existe-t-il un truc qui change le curseur de souris en fonction de sa position sur mon TImage ? (j'espère être clair ...)

Merci.

[Paul TOTH]

ce code n'a pas d'incidence tant que la valeur est la même.

je n'ai pas vérifié dans le code de la VCL, mais généralement les setters sont codés comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TMonObject.SetProperty(Value: TValue);
begin
  if  FProperty <> Value then
  begin
   ...
  end;
end;

alors en effet, tu vas tester dès que la souris bouge si elle est toujours au même endroit, mais le curseur ne changera que lorsque la valeur de la propriété Cursor changera

[Nioube]

... tu vas tester dès que la souris bouge si elle est toujours au même endroit, mais le curseur ne changera que lorsque la valeur de la propriété Cursor changera

Bon, je te fais confiance.

Merci