Discussion :

[Basile le disciple]

Bonjour à tous,

1. Je voudrais savoir s’il y a un moyen de savoir si le curseur est sorti d’un objet car je voudrais faire un bouton qui change de couleur quand on passe dessus et qui revient à la couleur initiale dès qu’on part(en POO).

2.Est-ce qu’il y aurait un moyen de savoir si on utilise la molette de la souris sur un TPaintbox sans passer par le OnMouseWheel de la form(toujours en POO) ?

[Jipété]

Yop !

1. Je voudrais savoir s’il y a un moyen de savoir si le curseur est sorti d’un objet car je voudrais faire un bouton qui change de couleur quand on passe dessus et qui revient à la couleur initiale dès qu’on part(en POO).

Selon les composants, il existe les événements OnMouseEnter et OnMouseLeave (ou Exit, me rappelle plus).

Pour la 2, je passe.

[Basile le disciple]

Le problème, c'est que mon objet dérive d'un TPaintbox qui n'a aucun de ces évènements.

[bjl]

Bonjour,

Regardez ceci avec CMMouseEnter et CMMouseLeave

http://www.phidels.com/php/index.php...9fde5237d95b95

[Basile le disciple]

Merci beaucoup mais je n'arrive pas à l'introduire dans mon code :

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
unit UScroolbar;
 
interface
 
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, UDegrade, ExtCtrls;
 
type
  TScroll = class
  private
    fWidth,fHeight : integer;
    FOnMouseover,FOnMouseOut : TNotifyEvent;
 
    Paintbox1 : TPaintbox;
    bmp : TBitmap;
 
    procedure DoPaint(sender : TObject);
    procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  public
 
     constructor create(aowner : TWINCONTROL);reintroduce;
 
  published
 
  property OnMouseover:TNotifyEvent read FOnMouseover write FOnMouseover ;
  property OnMouseOut :TNotifyEvent read FOnMouseOut write FOnMouseOut ;
 
end;
 
 
implementation
 
Uses Unit1;
 
constructor TScroll.create(aowner : TWINCONTROL);
begin
  inherited create;
  Paintbox1:=TPaintbox.Create(aowner);
  bmp:=TBitmap.Create;
 
  fWidth:=50;
  fHeight:=300;
 
  With Paintbox1 do
  begin
    Parent:=aowner;
    Width:=fWidth;;
    Height:=fHeight;
    OnPaint:=DoPaint;
    bmp.Width:=Width;
    bmp.Height:=Height;
  end;
end;
 
procedure TScroll.DoPaint(sender : TObject);
begin
  With bmp.Canvas do
  begin
 
  end;
  Paintbox1.Canvas.Draw(0,0,bmp);
end;
 
procedure TScroll.CMMouseEnter(var msg:TMessage);
begin
 inherited;
   Form1.Caption:='entre';
   if assigned(OnMouseover) then OnMouseover(self);
end;
 
procedure TScroll.CMMouseLeave(var msg: TMessage);
begin
 inherited;
 Form1.Caption:='sort';
 if assigned(OnMouseOut) then OnMouseOut(self);
end;
 
end.

Pourriez-vous m'aider?

[Jipété]

Merci beaucoup mais je n'arrive pas à l'introduire dans mon code :

Ce qui précède n'est pas un message d'erreur valide, et à partir de là (c'est-à-dire rien), impossible de te dire quoi faire...

[Basile le disciple]

Je n'ai rien mis car delphi compile parfaitement mais le caption de la form ne change pas!

[tourlourou]

C'est pê plutôt la PaintBox qui devrait écouter les messages : le TScroll n'est qu'une classe qui ne reçoit sûrement pas de messages de Windows, alors qu'un TWinControl doit en recevoir ?

[bjl]

En vérité, l'objet ne dérive pas de TPaintBox, mais il en contient une.

Pour continuer sur le même chemin, Il faudrait dériver TPaintBox avec les évènements OnMouse... et utiliser ce composant dans le TScroll.

[Andnotor]

Cette classe TScroll ne sert à rien. C'est bien TPaintBox qu'il faut dériver.

[Basile le disciple]

Excusez-moi pour le retard de ma réponse mais j'avais une semaine très chargée.

Merci beaucoup pour vos réponses, je vais dériver d'un TPaintbox pour pouvoir déclarer ces deux événements!

Est-ce que quelqu’un aurait une idée pour le OnMouseWheel(Down et Up) dans le TPaintbox.

[bjl]

TPaintBox hérite de TControl qui implemente les méthodes et évènements de scroll en section "protected". Il suffit de les dériver avec le mot clef "Override".

[Basile le disciple]

Merci beaucoup pour votre réponse mais je n'ai pas trouver la procedure qui gère
le OnMouseWheelDown dans le TControl.

[paulfr]

Bonjour,

Dans D2006 on trouve sans problème 'OnMouseWheel'.
Faites une recherche. Qu'elle est votre VERSION de Delphi ?

TControl.OnMouseWheel Evénement

Se produit quand l'utilisateur fait tourner la molette de la souris.

Classe
TControl

Syntaxe

[Delphi] property OnMouseWheel: TMouseWheelEvent;

Description
Ecrivez du code dans le gestionnaire d'événement OnMouseWheel pour répondre aux messages de la molette de la souris. S'il n'y a pas de gestionnaire d'événement OnMouseWheel ou si le message de la molette de la souris n'est pas géré dans le gestionnaire d'événement OnMouseWheel, selon
le sens de rotation de la molette un événement OnMouseWheelUp ou OnMouseWheelDown a lieu;

PL

[BuzzLeclaire]

Bnsoir Basile,

Comme le dit AndNotOr, ton unité ne sert strictement à rien, il te faut dérriver le composant TPaintBox, créer ton propre composant serait mieux...

Exemple :

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
unit PaintBoxEx ;
 
interface
 
uses
  SysUtils, Classes, Controls, Messages, Windows, Dialogs, StdCtrls;
 
type
 
  TPaintBoxEx = class(TPaintBox)
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
     procedure WMMOUSEWHEEL(var Message :TMessage); message WM_MOUSEWHEEL;
 
  public
    { Déclarations publiques }
  published
    { Déclarations publiées }
  end;
 
procedure Register;
 
implementation
 
procedure TPaintBoxEx.WMMOUSEWHEEL(var Message: TMessage);
begin
  inherited;
//
// Que faire ? dans qu'elle étagère ?
//
end;
 
 
procedure Register;
begin
  RegisterComponents('ExCompos', [TPaintBoxEx]);
end;
end.

Bye.

[Basile le disciple]

Le problème, c'est que j'hérite du Canvas du TPaintbox et je ne veux pas avoir de propriété canvas dans mon objet.

[Paul TOTH]

Le problème, c'est que j'hérite du Canvas du TPaintbox et je ne veux pas avoir de propriété canvas dans mon objet.

dans ce cas ton TScroll doit utiliser un dérivé de TPaintBox qui déclarera des événements OnMouseOver et OnMouseOut que ton TScroll définira...mais c'est un montage curieux.

il y a-t-il une raison particulière pour laquelle tu ne veux pas dériver de TWinControl ?

[Basile le disciple]

Bonjour, merci pour votre réponse

Je ne veux pas qu'un objet puisse être parent de TScroll!