Entrer dans l'évenement Onchange dans un sous-composantRésolu

Question

j'ai un probleme d'entr&#233;e dans l'evenement onChange d'un TEdit instanci&#233; 
par un TPersoDBGrid, l'ensemble devant devenir un composant unique. Voici la source &#233;dulcor&#233;e et comment&#233;e:

//D&#233;clarations dans la m&#234;me unit&#233; des deux osus-composants:
interface


uses
  SysUtils, Classes, StdCtrls, Controls, Grids,
  DBGrids,Types,ADODB,Graphics,DB,Messages;


var
  nomDeChamp:string;
  DataSet: TDataSet;
  //Le TDataset doit servir &#224; la fois pour le TPersoEDIT et le TPersoDBGRID
  //il est initialis&#233; dans la m&#233;thode selectTitre() du TPersoDBGRid;
  
type //composant TEDIT


//Deriv&#233; de TEDIT: sous-classe cr&#233;&#233;e pour g&#233;rer les &#233;venements
 TPersoEdit=class(TEdit)
    protected
     procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL); message WM_MOUSEWHEEL;//sert &#224; rendre le focus &#224; la DBGrid et fonctionne.
        procedure Change(); override;
        
    end;
//-------------------------------------------------------------


//Deriv&#233; de TDBGrid, base du composant et parent du TPersoEdit
   TPersoDBGrid = class(TDBGrid)
   private 
    { D&#233;clarations priv&#233;es }
     eRecherche:TPersoEdit; 
     procedure selectTitre(Column: TColumn);
     procedure triColonne(Column:TColumn);


    protected //visible pour les seuls descendants de la TPersoDBGrid
 { D&#233;clarations prot&#233;g&#233;es }
    procedure CellClick(Column: TColumn);override;//et pas overload car la methode surcharg&#233;e est virtuelle
  procedure TitleClick(Column:TColumn);override;
     procedure DrawColumnCell(const Rect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);override;
     procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL); message WM_MOUSEWHEEL;


    public //visible pour toutes les classes
//popMenuPerso:TPopupMenu; //&#224; programmer
     constructor Create(Owner:TComponent);override;
     destructor Destroy();override;


    published
  //...non recopi&#233;
 end;
//-------------------------------------------------------------



//Les proc&#233;dure et m&#233;thodes en jeu &#224; mon sens:
constructor TPersoDBGrid.Create(Owner:TComponent);
begin
 eRecherche:=TPersoEdit.Create(Self);//chaque ligne est parcourue au debogage
    with eRecherche do
    begin
     Parent:=self;
     Ctl3D:=False;
     Text:='';
     Visible:=false;
    end;
end;
//apres cette ligne, le d&#233;bogueur on passe &#224; "application.run" du projet
//ensuite on entre dans TPersoEdit.Change pour la premiere et derniere fois
    
procedure TPersoDBGrid.TitleClick(Column:TColumn);
begin
 //execution des fonctions attach&#233;es au tri
 selectTitre(Column);//voir fonctions en bas de page
    eRecherche.Visible:=True;
    eRecherche.SetFocus;
    triColonne(Column); //voir fonctions en bas de page
 //execution de l'&#233;v&#232;nement du d&#233;veloppeur si il est assign&#233;
 if Assigned(onTitleCLick) then onTitleclick(Column);
end;   
    
procedure TPersoDBGrid.DrawColumnCell(const Rect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);
begin
 //si l'etat "selectionn&#233;" est trouv&#233; dans le TGridDrawState pour une cellule
   If gdSelected In State Then
    Begin
//...r&#233;cup&#233;ration des dimensions de largeur pour tailler le TPersoEdit non recopi&#233;
//...colorisation des cellules non recopi&#233;
       selectTitre(Column);
   //select titre effectue la colorisation de l'ent&#234;te,
   //r&#233;cup&#233;re le champ actif, et 
   //initialise le dataset utils&#233; aussi dans le TPersoEdit.onChange. 
   End;
//...autres op&#233;rations de coloriages non recopi&#233;es
   DefaultDrawColumnCell(rect,datacol,column,state);
end;


//la methode selectTitre o&#249; est initialis&#233; le TDATASET
procedure TPersoDBGrid.selectTitre(Column: TColumn);
var i:integer;
begin
//...adaptation du TEdit nomm&#233; eRecherche &#224; la colonne (non recopi&#233;)
    //affectation du champ courant dans sa variable globale
    nomDeChamp:=Column.FieldName;
//gestion de l'index de selection
     SelectedIndex:=Column.Index;
//...Gestion des couleurs des titres non recopi&#233;e
end;


//!!!!!C'est ici que le code n'est pas parcouru, sauf &#224; l'instanciation du composant.(vu avec f8 et point d'arret)!!!!
procedure TPersoEdit.Change;
begin 
    if DataSet=nil then exit;
    inherited Change;
 DataSet.Locate(nomDeChamp,Text,[loCaseInsensitive,loPartialKey]);
end;


//...procedure register non recopi&#233;e 

J'ai une piste sans id&#233;e de solution :
serait-ce la fiche qui emet le message onchange au TEdit et pas son parent TPersoDBGrid? comment g&#233;rer cela (intercepter les messages keyPress?-->)

cs_pouicky · Accepted Answer

&#231;a y est j'ai trouv&#233;
c'&#233;tait bien &#231;a, l'histoire du message qui n'&#233;tait pas transmis du PersoDBGrid au TPersoEdit.

&#231;a marche (mais c'est &#224; &#233;purer s&#251;rement) en faisant ceci:
je defini une methode de message sur le message WMChar dans le TEDit
procedure WMChar (var Msg:TWMCHAR);message WM_CHAR;
je d&#233;fini une methode de message sur le message WMChar dans le DBGrid.
 procedure WMChar (var Msg:TWMCHAR);message WM_CHAR;
la mehode TCBgrid.WMChar a pour fonction d'appeler celle du Tedit en lui passant son parmetre Msg:
procedure TPersoDBGrid.WMChar(var Msg: TWMChar);
begin
  eRecherche.WMChar(Msg);
end;
Et sur la methode TEditWMChar j'effectue le traitement
procedure TPersoEdit.WMChar(var Msg: TWMChar);
begin
  if Msg.CharCode = ord(#13) then //execution sur la touche return
    Begin
    if DataSet=nil then exit;
     //il faudra g&#233;rer le type de donn&#233;es ou convertir en string??
  DataSet.Locate(nomDeChamp,Text,[loCaseInsensitive,loPartialKey]);
    end
  else
    inherited;
end;

Je suis assez content de mon intuition &#224; vrai dire



<HR>
rame, rame, rameurs, ramez....

cs_pouicky · Answer

Autre question : peut-on ins&#233;rer des sources delphi avec la colorisation dans les forums?

Cirec · Answer

Salut,
Regarde ceci, j'ai fait un petit essai de code avec un evenement onChange d&#233;clarer dans le OnCreate de la Form ( pour toi il faudrat le mettre dans le constructor TPersoDBGrid.Create(Owner:TComponent)) ce qui est le plus important pour toi je l'ai mis en rouge.

l'exemple suivant modifie le label1 quand le texte de l'Edit1 est modifier

type
TForm1 =   class (TForm)
Label1: TLabel;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure EditChanged (Sender: TObject);
private
{ D&#233;clarations priv&#233;es }
public
{ D&#233;clarations publiques }
end;

var
Form1: TForm1;


implementation


{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
TEdit(Edit1).OnChange : = EditChanged;
end;

procedure TForm1.EditChanged(Sender: TObject);
begin
Label1.Caption :=  Edit1.Text;
 end ;

end.

Voil&#224; donc ce qu'il fait faire dans ton cas pour que &#231;a fonctionne :


//Deriv&#233; de TDBGrid, base du composant et parent du TPersoEdit
  TPersoDBGrid  = class(TDBGrid)
  private 
    { D&#233;clarations priv&#233;es }
     eRecherche:TPersoEdit; 
     procedure EditChanged(Sender : TObject); //&#224; d&#233;clarer comme ceci
     procedure selectTitre(Column: TColumn);
     procedure triColonne(Column:TColumn);
  protected //visible pour les seuls descendants de la TPersoDBGrid
 { D&#233;clarations prot&#233;g&#233;es }
   ...
   ...
   ...
  public //visible pour toutes les classes
//popMenuPerso:TPopupMenu; //&#224; programmer
     constructor Create(Owner:TComponent);override;
     destructor Destroy();override;


    published
  //...non recopi&#233;
 end;
//-------------------------------------------------------------
//Les proc&#233;dure et m&#233;thodes en jeu &#224; mon sens:
constructor TPersoDBGrid.Create(Owner:TComponent);
begin
 eRecherche:= TPersoEdit.Create(Self);//chaque ligne est parcourue au debogage
     with  eRecherche do
    begin
     Parent: =self;
     Ctl3D:= False;
     Text:='';
     Visible:=false;
     end ;
TEdit(eRecherche).OnChange : = EditChanged;// ici onl'affecte &#224; eRecherche(Edit)
end;

//et la procedure en elle m&#234;me tu remarqueras que tout est d&#233;clarer sous TPersoDBGrid
procedure TPersoDBGrid.EditChanged(Sender: TObject);
begin
    if DataSet=nil then exit;
    inherited Change;
 DataSet.Locate(nomDeChamp,Text,[loCaseInsensitive,loPartialKey]);
end;

ceci fonctionne avec certitude, je l'utilise asser souvant pour red&#233;finir le onChange d'un composant.
 
En ce qui concerne la deuxi&#232;mme question tu peux soit le faire manellement (ce que je fait si il n'y a que quelques lignes) o&#249; si c'est plus long il existe un editeur de code qui est libre qui s'appel ConTEXT et tu peux le trouver &#224; www.context.cx  et celui ci est tr&#232;s pratique (&#224; mon avis) puisque tu peux &#233;diter ton code (supporte plusieurs langages) et en suite directement le mettre dans le presse-papier au format rtf et ensuite il ne reste plus qu'&#224; faire coller.
Bon c'est ma methode il y a peut &#234;tre plus simple mais bon cette &#233;diteur vaut bien un coup d'oeil (il est bien sur possible de le mettre en fran&#231;ais)

@+

cs_pouicky · Answer

J'ai l'impression que mon probleme releve de la gestion des &#233;v&#232;nements windows,, theme abord&#233; au lien suivant que je potasserai moins fatigu&#233; (il se fait tard, finalement)

http://www.univ-tours.fr/discala/livres/basesinfo8.pdf

Cet article qui se veut "de base" mais est excellent et me semble tres pointu pour ce qui nos interesse l&#224;.

Si quelqu'un a une astuce simple je suis toujours preneur. ;)

Cirec · Answer

ce que je t'ai mis fonctionne essaye le 



@+
Cirec

cs_pouicky · Answer

oups, Le post pr&#233;c&#233;dent n'est pas pass&#233;.
 M&#234;mes sympt&#244;mes qu'avant: un seul passage dans EditChanged au lancement de l'application test de ce composant. Voici l'essentiel du test...en couleurs ;)


type


// sous-classe cr&#233;&#233;e pour modifier le comportement du tedit


TPersoEdit=   class (TEdit)


private


protected


procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL);message WM_MOUSEWHEEL;


public


published


end;


TPersoDBGrid  =class(TDBGrid)


private //visible pour la seule TPersoDBGrid 


{ D&#233;clarations priv&#233;es }


eRecherche:TPersoEdit;


procedure EditChanged(Sender:TObject);//d&#233;clar&#233; sous PersoDBGrId


procedure selectTitre(Column: TColumn);


procedure triColonne(Column:TColumn);


protected//visible pour les seuls descendants de la TPersoDBGrid


{ D&#233;clarations prot&#233;g&#233;es }


procedure CellClick(Column: TColumn);override;//et pas overload car la methode surcharg&#233;e est virtuelle


procedure TitleClick(Column:TColumn);override;


procedure DrawColumnCell(const Rect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);override;


//WMMouseWheel r&#233;agira aux messages de type roulette


procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL);message WM_MOUSEWHEEL;


public//visible pour toutes les classes


constructor Create(Owner:TComponent);override;


destructor Destroy();override;


published//comme public mais visible en plus &#224; la conception graphique


property ...


end;


procedureRegister;


implementation


var


nomDeChamp:string;


DataSet: TDataSet;


leftCellule,rightCellule:Integer;


constructor TPersoDBGrid.Create(Owner:TComponent);


begin


inherited Create(Owner);//Constructeur herit&#233;


//colorisations par d&#233;faut


//Instanciation d'une zone de saisie


eRecherche: = TPersoEdit.Create(Self);


 with  eRecherche do


begin


Parent: = self;


Ctl3D:= False;


Text:='';


Visible:=false;


 end ;


TEdit(eRecherche).OnChange: =EditChanged;


end;


destructor TpersoDBGrid.Destroy;


begin


eRecherche.Free;


Dataset.Free;


inherited Destroy;


end;


procedure TPersoDBGrid.TitleClick(Column:TColumn);


begin


 //execution des fonctions attach&#233;es au tri 


selectTitre(Column);//voir fonctions en bas de page


eRecherche.Visible: = True;


eRecherche.SetFocus;


triColonne(Column);//voir fonctions en bas de page


//execution de l'&#233;v&#232;nement du d&#233;veloppeur si il est assign&#233;


 if  Assigned(onTitleCLick)then onTitleclick(Column);


end;


procedure TPersoDBGrid.CellClick(Column: TColumn);


begin


with eRecherche do


begin


Text: = '';


visible:= False;


Parent.SetFocus;


 end ;


end;


procedure TPersoDBGrid.DrawColumnCell(const Rect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);


begin


 //si l'etat "selectionn&#233;" est trouv&#233; dans le TGridDrawState pour une cellule 


If gdSelected In State Then


Begin


//r&#233;cup&#233;rer la position de la cellule selectionn&#233;e


leftCellule:  =rect.Left;


rightCellule:=  rect.Right;


 //coloriser si les cellules concern&#233;es 




//lancer la fonction de colorisation de l'ent&#234;te et r&#233;cup&#233;ration du champ actif: 
selectTitre(Column);


 End 


Else//pour les cellules non s&#233;lectionn&#233;es


Begin


//cas des lignes &#224; index pairs et impairs :coloriages




End; 
//appliquer l'operation de redessin


DefaultDrawColumnCell(rect,datacol,column,state);


end;


//gestion de la molettesur la grille si elle a le focus


procedure TPersoDBGrid.WMMouseWheel(var Msg: TWMMOUSEWHEEL);


begin


//...
end;


Exit;


end;


procedure TPersoEdit.WMMouseWheel(var Msg: TWMMOUSEWHEEL);


begin


self.Parent.SetFocus;


end;


procedure TPersoDBGrid.EditChanged(Sender:TObject);//d&#233;clar&#233; sous PersoDBGrid


begin


if DataSet  =nil then exit;


DataSet.Locate(nomDeChamp,eRecherche.Text,[loCaseInsensitive,loPartialKey]);


end;





procedure TPersoDBGrid.triColonne(Column:TColumn);


begin


//...
end;


procedure TPersoDBGrid.selectTitre(Column: TColumn);


var i:integer;


begin


//adaptation du TEdit nomm&#233; eRecherche &#224; la colonne


with eRecherche do


begin


Left:= leftCellule;


width:=rightCellule-leftCellule;


Top:=0;


height:=-Column.Title.Font.Height;


Text:=Column.Title.Caption;


SelStart:=0;


SelLength:=30;


 end ;


nomDeChamp: =Column.FieldName;


//gestion de l'index de selection


//Gestion des couleurs des titres


end;


procedureRegister;


begin


RegisterComponents('Personnels',[TPersoDBGrid]);


end;


end.



<HR>
rame, rame, rameurs, ramez....

Cirec · Answer

pouicky,
regarde tes messages priv&#233;s

Cirec · Answer

&#231;a y est 
&#224; la place de : 

with eRecherche do
begin
Parent:= self;
Ctl3D:=False;
Text:='';
Visible:=false;
 end ;
TEdit(eRecherche).OnChange: =EditChanged;
end;

Tu mets ceci :
TPersoEdit=  class (TEdit)
private
procedure EditChanged(Sender:TObject); // &#224; d&#233;clar&#233; sous PersoEdit en private
protected

with eRecherche do
begin
Parent: =self;
Ctl3D:=False;
Text:='';
OnExit := EditChanged;
Visible:=True;
end;


Et l&#224; &#231;a fonctionne tr&#232;s bien tu tapes un texte et quand tu quitte le PersoEdit l&#224; il le prend &#224; chaque fois. Alors pourquoi &#231;a ne fonctionne pas avec on change je ne sais pas ? Toujours est-il que j'ai fait des testes avec juste un TPersoEdit et l&#224; &#231;a fonctionne tout le temps et d&#232;s que je l'int&#232;gre &#224; ton Composant &#231;a ne fonctionne plus ????? 

Apr&#232;s je me demande si l'utilisation de OnChange &#233;tait judicieuse puisqu'il aurait d&#233;clanch&#233; l'&#233;v&#232;nement &#224; chaque fois qu'une touche &#233;tait press&#233;e ?



@+
Cirec

cs_pouicky · Answer

Merci de ton aide et de cette nouvelle info qui me conforte dans ce que je pense:

Je crois que les messages windows atteignent directement l'&#233;venement onChange d'un composant via la fiche qui le contient. Et l&#224;, c'est PersoDBGrid le composant qui re&#231;oit les messages windows il ne doit pas faire le relai par sa nature (c'est s&#251;rement de l'&#224; peu pres, mais je vais faire quelques tests en changeant le parent de TPERSOEDIT pour voir).

Merci pour ce test eclaircissant m&#234;me si je souhaite volontairement faire la recherche dans le champ &#224; chaque touche clavier dans la zone de texte. (d'o&#249; l'utilisation des fonctionnalit&#233;s ado de tri et de recherche sans requete sql supplementaire).

Cirec · Answer

ok ,
merci pour l'info, j'attend le r&#233;sultat final avec impatience
Bonne prog



@+
Cirec

Entrer dans l'évenement Onchange dans un sous-composant

10 réponses

Votre réponse

Discussions similaires