Discussion :

[fethi_09dz]

Salut tout le monde;

Je veux savoire comment créer d'autre evenement pour un composant existant. Dois-je modifier le composant ou je peux faire quelque chose depuis mon programme

Exemple 01 :
Un composant TImage

Je veux créer un autre evenement "OnMouseEnter" -> Veut dire : Quand le pointeur de la souris et sur la zone de ce compsant, pas comme l'evenement OnMouseMove qui m'oblige à déplacer le pointeurs de la souris sur le composant pour exécuter le block,

Je veux cet evenement qui detecte la position du curseur, est ce qu'il est sur un composant ou pas .

Exemple 02:
Un composant TImage

Je veux créer un autre evenement "OnMouseLeave" -> Veut dire : Quand la position du curseur est hors la zone allouée par les dimensions du composant , exécuter le block.

=========================
Je sais que c'est deux evènement existe sous Delphi 2006 .
Mais je veux les créer sous Delphi 7 , pour comprendre le concept de création des evenements.

=========================
Merci d'avance
=========================

[guillemouze]

voici une petite unité que j'ai faite ... J'espère qu'elle pourra t'aider

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
unit ExtImage;
 
interface
 
uses
Controls, ExtCtrls, Messages, Classes, Graphics;
 
type
  //Classe de base, qui contient tout le code
  TCustomExtImage = class(TImage)
  private
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
    //interception des messages windows d'evenements de la souris qui nous interessent
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    //nos proprietes
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
 
    //procedures appelées par les messages windows
    // permet de surcharger ces procedures si on herite le composant, sans se soucier des messages
    procedure MouseEnter; virtual;
    procedure MouseLeave; virtual;
end;
 
//class effective, permet simplement de "publisher" les proprietes voulues
TExtImage = class(TCustomExtImage)
  published
    property OnMouseEnter;
    property OnMouseLeave;
end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Supplément', [TExtImage]);
end;
 
{ TCustomExtImage }
 
procedure TCustomExtImage.CMMouseEnter(var Message: TMessage);
begin
  MouseEnter;
end;
 
procedure TCustomExtImage.CMMouseLeave(var Message: TMessage);
begin
  MouseLeave;
end;
 
procedure TCustomExtImage.MouseEnter;
begin
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;
 
procedure TCustomExtImage.MouseLeave;
begin
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;
 
 
end.

[fethi_09dz]

Merci mon ami, c'était vraiment la solution que j'ai cherché