Discussion :

[Leesox]

Bonjour,

Lorsque la souris survole un Timage, Je charge un Bitmap dans le TImage via l'évenement OnMouseLeave.
Je recherche un évenement qui pourrait m'aider à remettre l'image précédente lorsque la souris quitte le Timage, genre OnMouseExit, mais il n'existe pas.

Auriez-vous quelques idées pour que je puisse m'en sortir ?

Merci d'avance

Edit : J'ai regardé ce message mais il ne m'a pas aidé dans ce que je cherche à faire. http://www.developpez.net/forums/d10...lement-timage/

[Invité1]

salut,

j'ai pas trouvé cet evenement 'OnMouseLeave' dans le Timage

tu es certain que ça existe?

bonne soirée

[Leesox]

Tu as raison, je voulais parler de l'évenement OnMouseMove

[guillemouze]

regarde du coté de ce post:
http://www.developpez.net/forums/d60...s/#post3567945

[Invité1]

salut,

j'ai pu realiser ce que tu voulais mais avec un LABEL
ça n'accepte que les fichiers .BMP le code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
procedure inimage(image:string);
var Bitmap:TBitmap;
begin
Bitmap :=TBitmap.Create;
Bitmap.LoadFromFile(image);
form1.label1.Canvas.Brush.Bitmap :=Bitmap;
form1.label1.Canvas.FillRect(Rect(0,0,200,200));
end;
 
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
inimage('2.bmp');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
inimage('1.bmp');
end;
 
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
inimage('1.bmp');
end;

j'espere que ça t'aidera.

a++++++++++++++

[Leesox]

Bonjours à vous,

salut,

j'ai pu realiser ce que tu voulais mais avec un LABEL
ça n'accepte que les fichiers .BMP le code est le suivant:
j'espere que ça t'aidera.
a++++++++++++++

Je te remercie, mais j'aimerais bien utiliser le Timage qui n'a pas ces événements.

regarde du coté de ce post:

Merci pour ta solution, mais comment affectes-tu ces évenements à mon Timage, sachant que le Timage est créé dynamiquement.

[guillemouze]

tu copie l'unité que j'ai mis dans le message de l'autre thread, et tu fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
...
uses ExtImage;
 
type
  TForm1 = class(TForm)
  private
    bmpIn : TBitmap;
    bmpOut: TBitmap;
    procedure CreerLesImagesDynamiquement;
    procedure ImgMouseEnter(Sender: TObject);
    procedure ImgMouseLeave(Sender: TObject);
    ...
    constructor Create(AOwner: TComponent); override;
  end;
 
...
 
procedure TForm1.CreerLesImagesDynamiquement;
var
  img: TExtImage; //au lieu de TImage
begin
  img := TExtImage.Create(self);
  img.OnMouseEnter := ImgMouseEnter; 
  img.OnMouseLeave := ImgMouseLeave; 
  img.parent := self;
  ...
end;
 
procedure TForm1.ImgMouseEnter(Sender: TObject);
begin
  TImage(Sender).picture.bitmap.Assign(bmpIn);
end;
 
procedure TForm1.ImgMouseLeave(Sender: TObject);
begin
  TImage(Sender).picture.bitmap.Assign(bmpOut);
end;
 
constructor TForm1.Create(AOwner: TComponent); 
begin
  bmpIn := TBitmap.Create;
  bmpIn.LoadFromFile('bmpIn.bmp');
 
  bmpOut := TBitmap.Create;
  bmpOut.LoadFromFile('bmpOut.bmp');
end;

[Leesox]

Avec tout ce que tu m'a donné et expliqué, là je dois pouvoir me débrouiller seul.

Un grand merci.


Edit : Je n'y connais rien en création de composants. Est-ce de l'héritage cette méthode ?

[guillemouze]

Je n'y connais rien en création de composants. Est-ce de l'héritage cette méthode ?

"TCustomExtImage = class(TImage)" -> heritage

ce n'est pas un composant a proprement parler, mais tu peux, en rajoutant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
unit ExtImage;
 
interface
...
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('NomDeLaPage', [TExtImage]);
end;
...
end.

[Leesox]

Ok, j'ai encore beaucoup à apprendre !

Merci