Création dynamique d'un combobox

Question

Alors je comprend pas pourquoi sa marche pas !!
help me please

Voici mon code : 

*****************DECLARATION*************************
type
  Tmonedit =   class (Tedit)
  Public
    constructor create(Aowner : Tcomponent); Override;
    procedure MonEditOnEnter(sender : Tobject);
    procedure MonEditOnExit(sender : Tobject);
  end;

type
  TmonCombo  = class(TComboBox)
  Public
    constructor create(Aowner : Tcomponent); Override;
    procedure MoncomboChange(sender : Tobject);
  end;

***********************IMPLEMENTATION************************
constructor Tmonedit.create(Aowner : Tcomponent);
begin
  inherited;
  // propri&#233;t&#233;
  width := vg_height_zone;
  Height := 21;


  // attribution des nouveaux evenements
  OnEnter := MonEditOnEnter;
  OnExit := MonEditOnExit;
end;

constructor TmonCombo.create(Aowner : Tcomponent);
begin
  inherited
  OnChange:=MoncomboChange;
end;

********************************************************

Pour un TmonEdit ou un Tcombobox , je fonctionne de la meme maniere ! Ce que je comprend pas c'est que pour un object de type TmonEdit les deux evenement Onenter et onexit s'effectue et je n'ai pas d'erreur a la cration Alors que pour mon object de type TmonCombo , j'ai une erreur a la creation sur l'affectation de ma procedure MonComChange.
message d'erreur : Le projet x &#224; declanche la classe d'exception de type AeAccessViolation avec le messsage "violation d'acces a l'adresse 00000000 ... " 

Moi pas comprendre !!!

Cirec · Answer

Salut,
tu vas pas le croire le seul probl&#232;me c'est un point virgule qui manquait 

Var MCB : TMonCombo;

Implementation
constructor TMonCombo.Create(Aowner: TComponent);
begin
  inherited ;
  OnChange:= MonComboChange;
 end ;


procedure TmonCombo.MonComboChange(Sender: TObject);
begin
  ShowMessage('ComboChanged');
end;


utilisation :
procedure TForm1.Button1Click(Sender: TObject);
begin
  MCB : = TMonCombo.Create(Self);
  With MCB do
  Begin
    Left := 1;
    Top := 1;
    Parent := Form1;
    Name := 'MCB'; // lors de cr&#233;ation dynamique les composants ne sont pas nomm&#233;s il faut donc le faire soit m&#234;me
  End;
end;

Et bien sur ne pas oublier de liberer la m&#233;moire avant de quitter l'application avec MCB.Free;

@+
Cirec

cs_shining · Answer

C'est normal que ça plante car en mettant inherit tout seul sans paramètres, Delphi va faire hérité TObject au lieu de TComboBox, Hors TCombobox est un descendant de TWinControl c'est à dire que c'est un composant Windows(fenêtres) disposant d'un Canevas ect.., ce composant nécessite un paramètre de type AOwner(propriétaire: généralement c'une fiche TForm) TComponent
donc lorsqu'on surcharge le constructeur Create(AOwner : TComponent) on doit transmettre impérativement ce paramètre à son ancêtre(TComboBox)
dans le cas de la création en dynamique du Composant on peut mettre 'nil' dans le paramètre et par ensuite on affecte son parent

dans Form.Create
Exemple
 CB := TComboBox.Create(nil); ou Self peut importe !!!
 CB.Parent := Self; <=== obligatoire dans le cadre d'une création dynamrique du Composant Visuel


dans ton interface

voici une instance correcte de TComboBox dans la Classe TmonCombo :

constructor TmonCombo.create(Aowner : Tcomponent);
begin
    inherited Create(AOwner); <=== instance correctement intialisé, maintenant c'est son ancêtre TCombobox qui sera chargé de la construction de cette instance
    OnChange:=MoncomboChange; <=== inutile il suffit de surchargé la Procedure 'Change' en visiblité "Protected"
end;
 
  Type
  TmonCombo = class(TComboBox)
    protected
      procedure Change;override;  <== maintenant fait Ctrl + Maj + Alt en même temps dans l'editeur il faut que le curseur de la souris soit juste au dessus de procedure Change
    Public
      constructor create(Aowner : Tcomponent); Override;
  end;
  
  change n'ayant aucun paramètre là on peut mettre

procedure TMonCombo.Change;
begin
    inherited; <== là pas de problème 
    // ensuite ton code
end;

now ça doit marcher à 100% :)

Cirec · Answer

Salut Shining,
d'accord avec toi pour le Inherited Create(AOwner) mais le bug provenait uniquement du point virgule manquant.

Fait le teste comme moi je l'ai fait avec le code de DeveloMagaly tel quel et tu verras qu'en ajoutant le point virgule il compile et fonctionne ?

Ensuite pour le OnChange encore une fois d'accord mais ce qui a &#233;t&#233; fait n'est pas faut c'est juste une autre mani&#232;re de faire.

Et au lieu de faire un CTRL+MAJ+ALT 
il suffit que le cureur soit dans la classe et faire un contextuel puis compl&#233;ter la classe ... 
et la qu'il y ait une o&#249; 10 proc&#233;dures elles seront toutes cr&#233;es

@+
Cirec

cs_shining · Answer

Bon en effet d'après un test c'est correcte néanmoins il faut prendre l'habitude de faire hérité les paramètres(c'est plus propre !!)

pour le 'OnChange' c'est pas non plus la meilleur méthode , si jamais il diffuse un composant et que l'utilisateur surcharge cette fonction il en perdra la commande !!! tandis que 'procedure change;override' permet à la fois de prendre la 'main' tout en rendant utilisable celle-ci à l'utilisateur grosse nuance donc !!!

cs_shining · Answer

Bon en effet d'après un test c'est correcte néanmoins il faut prendre l'habitude de faire hérité les paramètres(c'est plus propre !!)

pour le 'OnChange' c'est pas non plus la meilleur méthode , si jamais il diffuse un composant et que l'utilisateur surcharge cette fonction il en perdra la commande !!! tandis que 'procedure change;override' permet à la fois de prendre la 'main' tout en rendant utilisable celle-ci à l'utilisateur grosse nuance donc !!!

cs_shining · Answer

oula désolé pour le spam ^_^

Cirec · Answer

Oui quand on doit diffuser un composant il faudrait mieux utiliser la surcharge de la fonction pour les raisons que donnes mais ici c&#146;est un composant cr&#233;er dynamiquement donc aucun risque de diffusion.

Voil&#224; mais il est vrai aussi qu'il vaut mieux prendre les bonnes habitudes tout de suite et d'un autre c&#244;t&#233; &#231;a permet de conna&#238;tre une autre m&#233;thode qui dans le cas qui nous int&#233;resse produit le m&#234;me effet

@+
Cirec

Création dynamique d'un combobox

7 réponses

Votre réponse

Discussions similaires