Creation d'évènement dans un TEDIT

**sjrd** · 30/05/2007, 18h35

Oui ce doit être

Code :

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

procedure AfterPnlOnClick(Sender : TObject);

C'est en effet la signature du type méthode TNotifyEvent. Et l'événement OnClick est de ce type.

**Clorish** · 30/05/2007, 18h43

Oui j'ai oublié ce detail : Le parent n'est pas encore effecté dans le constructeur, ce qu iest normal puisque dynamiquement on tappe :

Code :

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

1
2
3
 
Lbl := TLabel.Create(Self);
Lbl.Parent := Self;

Donc l'affectation de la parentee du panel doit etre lié a l'affectation de la parente de l'edit soit dans la methode :

Code :

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

1
2
3
4
5
6
7
8
9
 
Protected 
  Procedure SetParent(APArent : TWinControl); Override;
 
Procedure TMonEdit.SetParent(APArent : TWinControl);
Begin
Inherited SetPArent(AParent);
Self.pnl.PArent := AParent;
End;

**Ludo_360** · 31/05/2007, 09h22

bonjour!

Comme je n'ai pas internet chez moi je n'ai pas pu voir les messages que vous aviez laisé...

Mais c'est la tête fraîche et les idées claire que je suis arrivé, et vos messages vont m'aider dans la compréhension du reste du problème... Une histoire de temps et de logique

En tout cas merci bcp pour vos conseils c'est vraiment apprécié!

ludo

**Ludo_360** · 31/05/2007, 09h41

Lorsque je clique sur le panel j'ai bien un message test qui apparait!
Jusque là tout va bien donc. Je pourrais appeller mon application directement du composant. Moi je voudrais rajouter un OnPnlClick dans le gestionnaire d'évènements:

Code :

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

1
2
3
 
 
property OnPnlClick: TNotifyEvent read [...] write [...];

Le soucis est que je ne comprends pas tout à fait la logique ici : cette nouvelle propriété doit être définie avec un read, et/ou un write. Apparemment on attend ici un Object ou une classe, mais je ne vois pas pourquoi? Et surtout quel objet doit servir ici? Ce serait un object TNotifyEvent?

merci

ludo

**Clorish** · 31/05/2007, 10h11

Si tu as suivi mes conseils, tu devrais avoir un TPanel declaré privé dans ton composant.
Donc tu est le seul a pouvoir acceder a ses evenements.

Tu peux donc tout a fait t'en servir.
Le code pour transmettre le gestionnaire specifié par l'utilisateur sur le panel 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
 
TMonEdit = Class(...)
Private
  Procedure SetOnPnlClick(Value : TNotifyEvent);
  Function GetOnPnlClick : TNotifyEvent;
Published
  Property OnPnlClick : TNotifyEvent Read GetOnPnlClick Write FOnPnlClick;
End;
 
Procedure TMonEdit.SetPnlClick(Value : TNotifyEvent);
Begin
Self.pnl.OnClick := Value;
End;
 
Function TMonEdit.GetOnPnlClick : TNotifyEvent;
Begin
Result := Self.pnl.OnClick;
End;

Voila ... on est rentre plus en profondeur dans la gestion des events/Property

Tu peux affecter une methode en lecture/ecriture pour effectuer un certain traintement quand la property est appele en lecture ou en affectation ....

En fait, Delphi est un des rares (seul?) language a proposer des property. Java par exemple ne se contente que de procedures Get/Set.
L'avantage des property est de pouvoir remplacer une variable par une fonction et inversement sans avoir a recoder toute l'application.
D'une certaine maniere, c'ets comme si Delphi remplacait avant compilation toutes les occurances de la property par ce qui est defini dans Read et/ou write.

**Ludo_360** · 31/05/2007, 10h23

D'accord, c'est assez loin de ce que je m'imaginais... lol

Déjà je ne pensais pas qu'on pouvait mettre une procedure...
Bon alors c'est parti!

Et dans le même principe alors il m'est possible de créer une propriété permettant ou non l'affichage de mon panel?

Parcequ'il ne faudrait pas que l'utilisateur soit obligé de voir apparaître ce panel s'il estime qu'il n'a pas besoin de l'application proposée...

Merci pour ces infos!!!

ludo

**sjrd** · 31/05/2007, 10h39

Envoyé par Ludo_360

Et dans le même principe alors il m'est possible de créer une propriété permettant ou non l'affichage de mon panel?

Oui tout à fait. Tu fais un peu le même genre avec une propriété PnlVisible et des GetPnlVisible/SetPnlVisible

**Clorish** · 31/05/2007, 10h40

Envoyé par Ludo_360

D'accord, c'est assez loin de ce que je m'imaginais... lol

Ca arrive assez souvent

Envoyé par Ludo_360

Déjà je ne pensais pas qu'on pouvait mettre une procedure...
Bon alors c'est parti!

Oui, c'est une des forces des property. Et on peut aller tres loin.
Comme par exemple tester un nom de fichier ou une url transmise pour s'assurer que le format est bien correct, idem pour les dates, reagir en appelant un gestionnaire d'evenemtn ou executer certaines action quand une procedure est mise a jour (ideal pour repercuter une valeur sur plusieurs classes) ou encore enregistrer/desenregistrer automatiquement un composant aupres d'un autre quand on transmet une certaine valeur ..... (property linked : Boolean par exemple)

Envoyé par Ludo_360

Et dans le même principe alors il m'est possible de créer une propriété permettant ou non l'affichage de mon panel?

Tout a fait.
Dans ce cas ton composant wrap ton pannel.
Tu peux redefinir certaines property/Fonction de ton panel dans ton composant et y faire appel.
Par contre si tu as trop de fonction a manipuler, il serait peut etre preferable de proposer une property :

Code :

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

Property Panel : TPanel Read pnl;

pour manipuler directement le panel.
J'ai n'ai specifié que Read car je ne souhaite pas que l'utilisateur puisse affecter un autre panel

ce qui peut etre envisageable mais necessite de prendre plsu de precautions.

Par contre, dans ce cas, il n'ets plus possible de passer par l'evenement "OnClick" du panel car il pourra etre affecter par l'utilisateur directement via la property panel du TMonEdit.
D'autres methodes sont envisageable pour coder cet evenement dans ce cas la.

**Clorish** · 31/05/2007, 10h43

Envoyé par sjrd

Oui tout à fait. Tu fais un peu le même genre avec une propriété PnlVisible et des GetPnlVisible/SetPnlVisible

J'ai pense la meme chose mais a y reflechir il peut faire ca aussi :

Code :

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

1
2
3
4
 
Property EnablePnl : Boolean Read FEnablePnl Write FEnablePnl;
 
[...]If Self.FEnablePnl Then [...];

**Ludo_360** · 31/05/2007, 11h08

d'accord, je ne dirais pas que ça commence à s'éclaircir, au contraire

Mais je m'aperçois que je rentre dans une partie du delphi qui à l'air très interessante!

Pour l'instant mes propriétés n'apparaissent pas dans le gestionnaire...

A quoi sert le "F" dans la déclaration de la propriété ?

Property OnPnlClick : TNotifyEvent Read GetOnPnlClick Write FOnPnlClick;

ludo

**Ludo_360** · 31/05/2007, 12h30

L'événement et la propriété ne s'affichent pas dans l'inspecteur d'objets... Par contre avec l'aide à la saisie j'ai bien ma propriété et mon évènement qui sont référencés... pourquoi je ne les vois pas dans l'inspecteur alors? Ce n'est pas pratique du tout et je ne vois pas pourquoi j'aurais pas les deux possiblités..?

**Clorish** · 31/05/2007, 12h39

Pour etre visible dans l'inspecteur d'objet, il faut que les property soient declarees published

Ensuite les property evenements sont dans l'onglet evenement et non proprietees.

**Ludo_360** · 31/05/2007, 12h43

C'est ce que j'ai fait... C'est pour ça je ne vois pas l'astuce...

**Ludo_360** · 31/05/2007, 13h11

MonEdit, ce que j'ai rajouter à la classe de base:

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
 
 
private 
   pnl : Tpanel;
   FEnablePnl : Boolean;
   procedure SetOnPnlClick( value : TNotifyEvent );
   function GetOnPnlClick : TNotifyEvent;
 
protected
   procedure DoEnter; Override;
   procedure DoExit; Override;
   procedure AfterDoEnter;
   procedure AfterDoExit;
 
public
   destructor Destroy;
 
published
   property OnPnlClick : TNotifyEvent read GetOnPnlClick write SetOnPnlClick;
   property EnablePnl : Boolean read FEnablePnl write FEnablePnl;
 
(******)
 
Constructor TMonEdit.Create(AOwner : TComponent);
begin
   FEnablePnl:= True;
   pnl:= TPanel.Create(self);
end;
 
Destructor TMonEdit.Destroy;
begin
   pnl.free;
end;
 
procedure TMonEdit.DoEnter;
begin
   inherited;
   if Self.FEnablePnl then Self.AfterDoEnter;
end;
 
procedure TMonEdit.AfterDoEnter;
begin
   pnl.parent:= Self.parent;
   pnl.color:= $0097D2FF;
   pnl.Left:=  self.left + 100;
   pnl.Top:= self.top - 15;
   pnl.Height:= 20;
   pnl.Width:= 50;
   pnl.Caption:= 'Clavier';
   pnl.Visible:= true;
end;
 
procedure TMonEdit.SetOnPnlClick( value : TNotifyEvent);
begin
   Self.Pnl.OnClick:= value;
end;
 
procedure TMonEdit.GetOnPnlClick : TNotifyEvent;
begin
   result:= Self.pnl.OnClick;
end;
 
procedure TMonEdit.DoExit;
begin
   inherited;
   Self.AfterDoExit;
end;
 
procedure TMonEdit.AfterDoExit;
begin
   pnl.visible:= false;
end;

Voila, je voudrais donc pouvoir voir mon évènement et ma propriété dans mon gestionnaire. Pourquoi la je ne les vois pas? Tout me semble logique jusque là...

merci

ludo

**Clorish** · 31/05/2007, 13h23

Question bete ... tu as quand meme bien installé ton composant ... non ?
ET il derive de quelle classe ?

**Ludo_360** · 31/05/2007, 13h26

Pas si bête que ça la question quand on est bloqué comme ça... le composant est bien installé et est utilisé par plusieurs applications déjà, moi je modifie ce composant en ajoutant mon panel...

il est dérivé de TcustomEdit après 1 ou 2 autres classes...

pourquoi ça peut avoir un effet ?

ludo

**Clorish** · 31/05/2007, 13h30

ha ben voila

Enfin si on veux.

Tu le modifie comment ? directement avec le code source ?
PArce que si il est isntallé dans delphi c'ets qu'il faut parti d'un package.
Suffit juste de savoir lequel et de recompiler le package.
Normalement l'install ne devrais pas etre a refaire car elle l'est deja ....

**Clorish** · 31/05/2007, 13h32

Envoyé par Ludo_360

pourquoi ça peut avoir un effet ?

PArce que pour que l'inspecteur d'objet puisse y acceder il lui faut certaines information dite RTTI. JE ne suis pas expert en la matiere mais il me semble que ces focntions sont introduite a partir de TComponent classe de base de tout Composants graphique ou non.

Donc ... si il derive d'une classe anterrieure ... je ne suis pas sur que ca reagisse bien

**Ludo_360** · 31/05/2007, 13h32

daccor je vais voir ça.. mais commen se fait il que je puisse voir mon panel alors dans les différentes application alors que je n'ai pas fait cette manip...?

**Ludo_360** · 31/05/2007, 13h35

Ca marche nickel...!!!

merci
bon je vais manger

a tte

c bizar parceque il me met un message par rapport a mon destructeur a la compilkation du package, mais j'avais le même à la compilation d'une application utilisant mon Edit...

enfin

a+

ludo

Creation d'évènement dans un TEDIT

Delphi

Discussions similaires

Partager

Partager