Creation d'évènement dans un TEDIT

**Ludo_360** · 30/05/2007, 12h33

bonjour,

Je suis en train de modifier un composant dérivé du TEdit pour pouvoir afficher un panel du même genre que ce que l'on a avec Hint, sauf que dans mon cas on peut cliquer sur le panel afin de lancer une autre application.

J'ai tout d'abord mis la propriété OnEnter, ensuite dans le constructeur je déclare que OnEnter on va lancer la procedure AfterOnEnter.
Dans cette procedure j'ai commencé par changer le texte du Edit afin de vérifier que tout allait bien jusque là: pas de problème pour l'instant... =)
Maintenant j'essai de créer un Tpanel, mais le soucis c'est qu'à l'execution il me transforme mon edit en un truc ressemblant à un edit aux dimensions du panel que je veux créer... Je ne sais pas si je suis clair...? :s

Enfin voila le code pour voir exactement où j'en suis:

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
 
protected
      procedure AfterOnEnter(sender : TObject);
 
published
   property OnEnter
 
implementation
 
constructor TMonEdit.Create(AOwner: TComponent);
begin
   inherited;
   OnEnter:= AfterOnEnter;
end;
 
 
procedure TMonEdit.AfterOnEnter(sender : TObject);
var
   pnl : TPanel;
begin
   inherited;
   TDiaEdit.create(pnl).;
   pnl.Color:= $0097D2FF;
   pnl.Left:= left + 10;        // dimensions que prend le edit (et non mon panel)...
   pnl.Top:= top + 10;
   pnl.Height:= 30;
   pnl.Width:= 40;
   pnl.Caption:= 'Clavier';
   //pnl.Visible:= true;              // avec ou sans cette ligne le résultat bizar est la
   //text:= 'test création label';  // cette ligne de test marche très bien!!
 
end;

Voila, vos avis experimentés sont vraiment les bienvenus!! merci!

ludo

**Paul TOTH** · 30/05/2007, 12h47

d'où sort le pnl ?!

en imaginant qu'il y a une faute de frappe, le code serait

pnl:=TDiaEdit.create(Self);

ensuite la position du Panel est relative à son Parent, sans Parent, ce sont des coordonnées écran.

**Ludo_360** · 30/05/2007, 12h54

comment ça une faute de frappe...?

D'où sort le panel

je veux le créer. Ta solution semble bien plus logique que ce que j'ai pou faire, mais ça ne marche pas non plus...

ludo

**Clorish** · 30/05/2007, 12h54

Oulala je ne sais meme pas comment ca peut marcher tout ca

Voici le code de creation d'un panel dynamique

Code :

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

1
2
3
 
Var Pnl : TPanel;
Pnl := TPanel.Create(Self);

De preference, Pnl est une variable privee de ta classe TMonEdit.
Self est le "owner" du panel, c'est a dire le responsable de la destruction du panel quand il est detruit.
Ensuite, l'instance est renvoyé comme resultat d'uen fonction et non au parametre "owner" comme tu semble le supposer.

Ensuite, lier ta procedure AferOnEnter a l'evenent OnEnter de ta classe est dangeureux.
Car si l'utilisateur affecte en toute logique un gestionnaire a cet evenement, il va ecraser la reference a ta procedure qui du coup ne s'excutera plus.
Pour palier a ca, il faut surcharger la methode Doenter (ou equivalente) responsable de l'execution de l'evenement OnEnter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
TMonEdit = Class(TEdit)
Protected
  Procedure DoEnter; OVerride;  // definition a verifier
[...]
 
Procedure TMonEdit.DoEnter;
Begin
Inherited;
Self.AfterDoEnter; // Plus besoin du "sender"
End;

Ensuite, je te conseille de passer le panel en variable privee de la classe TMonEdit et de le creer dans le constructeur de ta classe.
Il sera toujours present tant que ton edit existera, mais tu joue sur la property Visible du panel pour l'afficher ou non.

Voila pour commencer a coder proprement ta classe, pour la suite on verra apres si besoin

Bon courage !

**Clorish** · 30/05/2007, 12h57

Note, lors de la creation du panel, affecte le parent de la sorte :

Code :

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

1
2
 
Pnl.parent := Self.Parent;

Ensuite les coordonnées seront relative au parent du edit cest a dire la form ou le panel sur lequel il a ete posé.
Tu peux donc te baser sur les proprietees Top/Left/Width/height de l'edit pour positioner le panel correctement.

**Ludo_360** · 30/05/2007, 12h59

=)

Okay je comprends mieux le raisonnement à suivre.
merci !!

Je vous tiens au courant de mon avancement =)

Par contre il ne faut surtout pas que je change le fonctionnement de MonEdit déjà utilisé dans plusieurs applications, c'est délicat. Le "Pnl.parent := Self.Parent;" ne risque pas de changer quelque chose dans le déroulement normal du reste des propriétés du composant?

ludo

**Clorish** · 30/05/2007, 13h05

Absolument pas

Poser un 2e Edit sur une form en possedant deja un n'affecte en rien le comportement du premier

Pourtant les 2 edits on le meme parent .... On ne fait rien de plus la

**Ludo_360** · 30/05/2007, 13h13

d'accord, merci!
C'est impressionnant maintenant je commence à avoir quelques petites notions, c'est des dizaines de questions qui me viennent à l'esprit à chaque fois qu'une réponse pertinente arrive!

J'aurais juste voulu comprendre pour l'instant à quoi sert override, dans l'aide delphi j'ai vu "procedure overridepreview" mais ça ne répond pas à ma question...

merci

ludo

**Paul TOTH** · 30/05/2007, 13h17

il est un peu vieux, mais je te conseille cet article sur les classes et les composants

ici

**Ludo_360** · 30/05/2007, 13h21

ok merci en tout cas
c'est ce genre de réponses constructives qui me permettent d'aller de l'avant.

voila

j'espère que tu pourras me conseiller encore la prochaine fois!!

ludo

**Clorish** · 30/05/2007, 13h27

Quand tu definie une methode dans une classe elle est acessible depuis toutes les instances de cette classe :

Code :

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

1
2
3
4
5
6
7
8
 
TMaclasse = Class(...)
Public
  Procedure MaProc;
End;
 
Var MaClasse : TMaClasse;
MaClass.Proc;

Or, de la meme maniere que l'on peut affecter un Integer a un Real car un Integer est un Real (le contraire non) on peut faire :

Code :

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

1
2
3
4
5
6
Var 
  MaClass : TMaClasse;
  Obj : TObject;
 
MaClass := TMaClass.Create;
Obj := MaClass;

Car MaClasse est un TObject car elle derive (directement ou non) de cette classe.

Si on considere maintenant la classe suivante :

Code :

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

1
2
3
4
5
 
TMAClass2 = Class(TAclass)
Public
  Procedure MaProc;
end;

Une classe qui derive de TMaClasse et qui rajoute du code a la procedure TMaClasse pour la completer (ce qui est ton cas)

Quand on ecrit ceci :

Code :

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

1
2
3
4
5
6
7
8
 
Var
  MaClass : TMaclass;
  MaClass2 : TMAClass2;
 
MaClass2 := TMaClass2.Create;
MaClass := MaClass2;
MaClass.MaProc;

Quel est la version de "MaProc" qui est executée ?
1 - Celle de "TMaClasse" car MAClasse est de Type TMaClasse ?
2 - Celle de 'TMaClasse2" car MaClasse pointe sur un objet qui a ete cree a partir de TMaClass2 ?

En fait, si on ne met rien, c'est la version de la classe de la variable utiliee (cas 1) si on met override, tout appel a cette methode depuis une variable de type de l'une des classe heritee, connaissant cette methode fait appel a la methode de la classe de creation (cas 2)

LA nuance est subtile mais a son importance quand on sait s'en servire

A noter que pour qu'une methode puisse etre "Override" il faut que l'une des classes ancetre la devlare "Virtual"

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TMaClass = CLass(..)
Public
  Procedure MaProc; Virtual;
End;
 
TMaClass2 = Class(TMaClass)
Public
  Procedure MaProc; Override;
End;

**Ludo_360** · 30/05/2007, 15h35

D'accord!

C'est vrai que c'est subtil, mais le fonctionnement est tellement logique.

merci

ludo

**Ludo_360** · 30/05/2007, 15h56

Code :

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

1
2
3
4
5
6
 
Procedure TMonEdit.DoEnter;
Begin
Inherited;
Self.AfterDoEnter; // Plus besoin du "sender"
End;

"Self" pose problème... Je ne vois pas trop pourquoi puisque lorsque je l'écris, l'aide à la saisie me propose la fonction AfterDoEnter, mais lorsque je veux le compilé, le compilo le prend pour un identificateur non déclaré...

**Ludo_360** · 30/05/2007, 15h59

Bug du compilo... maintenant il le prend bien.. pas encore compri pk... dslé :s

ludo

**Clorish** · 30/05/2007, 16h00

Envoyé par Ludo_360

"Self" pose problème... Je ne vois pas trop pourquoi puisque lorsque je l'écris, l'aide à la saisie me propose la fonction AfterDoEnter, mais lorsque je veux le compilé, le compilo le prend pour un identificateur non déclaré...

Envoie le code complet de ta classe

**Ludo_360** · 30/05/2007, 16h19

Ca ne marche plus du tout.. je n'ai que le message test ...

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
 
 
private
      pnl : TPanel;
 
protected
      procedure DoEnter; override;
      procedure AfterDoEnter;
 
constructor TMonEdit.Create(AOwner: TComponent);
begin
   inherited;
   pnl:= TPanel.Create(self);
   Pnl.parent:= Self.Parent;
   end;
 
Procedure TMonEdit.DoEnter;
Begin
   Inherited;
   Self.AfterDoEnter; // Plus besoin du "sender"
End;
 
procedure TMonEdit.AfterDoEnter;
begin
   pnl.color:= $0097D2FF;
   pnl.Left:=  100;
   pnl.Top:= 100;
   pnl.Height:= 30;
   pnl.Width:= 40;
   pnl.Caption:= 'test';
   pnl.Visible:= true;
   text:= 'test création label';
end;

Voila... il y a surement quelque chose que je n'ai pas saisi...

**Ludo_360** · 30/05/2007, 16h53

je rajoute:

Code :

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

1
2
 
pnl.SetFocus;

dans la procedure d'affichage de mon panel, et lors de l'execution, lorsque je met le focus sur mon edit, le compilo me génère une erreur : le control n'a pas de fenetre parente.

Donc le panel n'est pas créé?

ludo

**sjrd** · 30/05/2007, 17h04

Si, mais sa propriété Parent est à nil. Ce qui est très possible puisque tu lui affectes la valeur de la propriété Parent de l'edit, mais dans son constructeur. Si ton edit est posé sur une fiche comme composant "statique", au moment de son constructeur il n'a pas encore de parent. Donc tout se tient.

Tu dois simplement déplacer le Pnl.Parent := Parent; dans ton AfterDoEnter.

**Ludo_360** · 30/05/2007, 17h11

ok! Ca marche merci bcp!!!!!!

Donc a la création du edit, celui n'a pas encore de parent??? pourtant lorsque l'on construit la fiche, on indique les edit... Ils appartiennet bien à la fiche...

ludo

**Ludo_360** · 30/05/2007, 17h41

J'ai rajouté un destructeur pour éviter de prendre de la place en mémoire pour rien...

Code :

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

1
2
3
4
5
6
7
8
 
public
      destructor Destroy(AOwner: TComponent); 
 
destructor TMonEdit.Destroy(AOwner: TComponent);
begin
   pnl.Free;
end;

J'ai aussi rajouter une procedure OnExit pour que le panel ne soit plus visible...

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
 
protected
 
      procedure AfterDoEnter;
      procedure AfterDoExit;
 
Procedure TMonEdit.DoExit;
Begin
   Inherited;
   Self.AfterDoExit; 
End;
 
procedure TMonEdit.AfterDoExit;
begin
 
   pnl.Visible:= false;
end;

Voila maintenant je dois faire en sorte que lorsque l'utilisateur click sur le panel j'execute une application... Dois-je obligatoirement déclarer cette procedure "Onclick" dans le composant edit ou je peux faire en sorte que la propriété OnPnlClick soit visible dans le gestionnaire des évènements..?

Pour l'instant j'ai fais ceci:

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
 
protected
   procedure AfterpnlOnClick;
 
 
constructor TMonEdit.Create(AOwner: TComponent);
begin
   inherited;
   pnl:= TPanel.Create(self);
   pnl.OnClick:= AfterpnlOnClick; // l'erreur est sur cette ligne
 
end;
 
procedure TDiaEdit.AfterpnlOnClick;
begin
    showmessage('clic okay');  // pour voir s'il prend en compte le clic pour commencer...
end;