Discussion :

[Laskar]

Bonjour à tous.

Je créé une TImage dynamiquement sur une fiche et j'aimerais lui affecter une méthode sur l'évènement OnMouseEnter.

Code :

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

1
2
3
[..]
MonImage.OnMouseEnter = GestionCurseur;
[..]

me retourne l'insulte :

[DCC Erreur] Main.pas(119): E2009 Types incompatibles : 'pointeur de méthode et procédure normale'

Comment faire ?

Merci

[Paul TOTH]

l'erreur est pourtant claire, "GestionCurseur" est une "procédure normale" et non une "méthode de classe".

[Laskar]

l'erreur est pourtant claire, "GestionCurseur" est une "procédure normale" et non une "méthode de classe".

Je formule ma demande d'aide sous une autre forme :

Suis-je obligé de développer ma propre méthode de classe pour l'affecter à l'évènement de mon composant image ? Ca ma parait bien compliqué pour pas grand-chose.
Je souhaiterais que le curseur de la souris change de forme lorsqu'il passe sur mon composant image. C'est dur ça ?

[Paul TOTH]

Je formule ma demande d'aide sous une autre forme :

Suis-je obligé de développer ma propre méthode de classe pour l'affecter à l'évènement de mon composant image ? Ca ma parait bien compliqué pour pas grand-chose.
Je souhaiterais que le curseur de la souris change de forme lorsqu'il passe sur mon composant image. C'est dur ça ?

pour cela il y a une propriété Cursor

[Laskar]

TOTH, tes réponses sont trop laconiques et ne me permettent pas d'avancer.
Voila le code que j'ai écrit :

Code :

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

1
2
3
    sCarre := TImage.Create(self);
    sCarre.AutoSize := True;
    sCarre.Picture.LoadFromFile('Carre.bmp');

Plus loin, j'affiche l'image avec la fonction MaskBlt de cette manière :

Code :

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

1
2
MaskBlt(ImageDeFond.Canvas.Handle, 100, 100, 50, 50, sCarre.Canvas.Handle, 0, 0, pMask.Picture.Bitmap.Handle, 0, 0, MAKEROP4(SrcCopy, $00AA0029));
Invalidate;

(comme mon carré possède des "trous", je dois l'associer à un masque "pMask" qui me permet de voir au-travers)

Tout ça marche nickel.

Comment, maintenant, puis-je changer le pointeur de souris quand je le balade au-dessus de l'image sCarre ? Je rappelle que le composant image est créé à la volée. Je ne sais pas comment, dans ce cas, je peux intercepter l'évènement OnMouseEnter ...

[Paul TOTH]

TOTH, tes réponses sont trop laconiques et ne me permettent pas d'avancer.
Voila le code que j'ai écrit :

Code :

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

1
2
3
    sCarre := TImage.Create(self);
    sCarre.AutoSize := True;
    sCarre.Picture.LoadFromFile('Carre.bmp');

Plus loin, j'affiche l'image avec la fonction MaskBlt de cette manière :

Code :

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

1
2
MaskBlt(ImageDeFond.Canvas.Handle, 100, 100, 50, 50, sCarre.Canvas.Handle, 0, 0, pMask.Picture.Bitmap.Handle, 0, 0, MAKEROP4(SrcCopy, $00AA0029));
Invalidate;

(comme mon carré possède des "trous", je dois l'associer à un masque "pMask" qui me permet de voir au-travers)

Tout ça marche nickel.

Comment, maintenant, puis-je changer le pointeur de souris quand je le balade au-dessus de l'image sCarre ? Je rappelle que le composant image est créé à la volée. Je ne sais pas comment, dans ce cas, je peux intercepter l'évènement OnMouseEnter ...

ta souris ne passera jamais au dessus du TImage car celui-ci n'est pas visible à l'écran !
tu aurais tout aussi bien pu utiliser un TBitmap (objet non visuel) car tu n'exploites pas les propriétés de TImage mais uniquement celles de TImage.Picture.Bitmap !

affecte à ton TImage un Parent et une position (Top, Left) dès lors la souris pourra changer d'aspect en fonction de sa propriété Cursor, et il se chargera tout seul d'afficher son Bitmap.

Dans ton code tu affiches l'image sur "ImageDeFond" qui est le seul à pouvoir détecter que la souris passe dans la zone que tu dessines par toi-même.

[Laskar]

Ok TOTH, voila enfin une réponse qui me plait !
En effet en modifiant la création de l'image de cette manière :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    sCarre:= TImage.Create(self);
    with sCarre do
    Begin
        AutoSize := True;
        Picture.LoadFromFile('Carre.bmp');
        Parent := MainForm;
        Left := 75;
        Top := 100;
        Transparent := true;
        Cursor := crSizeAll;
    End;

... j'obtiens presque ce que je voulais (je vais me débrouiller pour le reste)

La persévérance est la mère de tous les biens.

Merci à toi

[Paul TOTH]

Ok TOTH, voila enfin une réponse qui me plait !

rien, dans ton premier message, ne laissait supposer que tu créais un TImage invisible...