Discussion :

[Invité]

Bonjour,

Un petit éclaircissement sur le constructeur des composants :

Lorsqu'on définit constructor TmyComponent.Create(aOwner: TComponent), TmyComponent étant "posé" sur une Form ou un élément de celle-ci (TPanel,...), le aOwner "renvoyé" est-il systématiquement une TForm ? Sinon que peut-il être d'autre ?

Merci. Cordialement.
Gilles
Lazarus 1.1-37477 fpc-2.6.1-20120602-Win32

[Archimède]

ça fait un moment que je n'ai pas touché lazarus ou delphi mais tu peux faire ça si tu veux, je pense :

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  label1:=TLabel.create(panel1);
  label1.parent:=panel1;
  label1.caption:='mon propriétaire est panel1';
end;

Ceci dit, si tu mets self, form1 devrait se charger de libérer ton label dynamique. C'est l'avantage. Cependant, ça doit se faire aussi en cascade...

@+

[Invité]

Bonjour,

Merci pour votre réponse. J'aimerais savoir s'il se peut que le aOwner du composant renvoie une autre réponse que la TForm sur laquelle il est posé lorsque l'on interroge le aOwner.

Dans la configuration suivante, le myComponent1.Parent est Panel1. Son aOwner est Form1.
Form1
--|__Panel1
-------|__myComposant1

Mais est-il possible que dans certaines (autres) circonstances, le aOwner ne soit pas la TForm ? Autrement dit, est-il nécessaire de vérifier que le aOwner est bien une TForm ? Et dans le cas où ce ne serait pas la TForm, quelles sont ces circonstances ?

Cordialement. Gilles

[Archimède]

Regarde peut-être du côté de FindComponent...

[tourlourou]

Bonsoir,

Pourquoi as-tu besoin de compter sur le fait que le Owner soit une fiche ?

Et si c'est le cas, n'est-il pas dangereux de l'assumer au cas où lors d'une création dynamique on assigne nil, par exemple.

Cela dit, si ce besoin ne se situe que lors de la création en Design Time, il suffit de tester dans le code :

Code :

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

1
2
3
if csDesigning in ComponentState
then // je suis bien en création de fiche, et mon Owner est fatalement (?) une fiche
else // je ne suis pas sûr de la nature de mon Owner

[Invité]

Bonjour Toulourou,

J'ai dérivé une partie de mes composants visuels pour diverses raisons, notamment, celle qui est à l'origine de ma question : je veux que le Enter puisse avoir la même fonction que le Tab.

Dans un premier temps, je me suis facilité la tâche dans ma propre activité de programmation en dérivant les composants standards pour les adapter à mes besoins usuels, sans laisser trainer des codes répétitifs indispensables mais "loins de la couche métier". Maintenant, j'améliore l'ergonomie pour l'utilisateur.

J'ai donc dans mes composants, une méthode de ce type :

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
procedure TmyEdit.SelfOnKeyPress(Sender: TObject; var Key: char);  
begin
  if Assigned(FOnKeyPress) then FOnKeyPress(Sender);
  if (FEnterKeyIsNext)
  and (not (ReadOnly))
  and (Enabled)
  and not (csDesigning in ComponentState) then begin
 
    if Key = #13 then begin
      with bForm do
        if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
          SelectNext(ActiveControl, False, True)
        else
          SelectNext(ActiveControl, True, True);
      Key := #0
    end;
 
  end;
end;

Elle repose sur SelectNext qui nécessite une TForm. Le bForm ci-dessus est défini dans le constructeur :

Code :

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

1
2
3
4
5
6
7
8
constructor TmyEdit.Create(aOwner: TComponent);
begin
 inherited;
 bOwner  := aOwner;
 if bOwner is TForm then bForm := TForm(bOwner) else
   Showmessage('Le aOwner n''est pas une Tform : ?');         
  [...]
end;

J'utilise ces composants depuis pas mal de temps et je n'ai jamais rencontré de problème (ie le ''Le aOwner n''est pas une Tform : ?' n'est jamais apparu). Mais comme je les revisitais, la question que j'avais éludée est aujourd'hui d'actualité. [RQ : j'ai besoin d'utiliser aOwner dans d'autres méthodes du composant, d'où la présence de bOwner].

Avec ces composants, je n'utilise pas la création dynamique. Ils sont systématiquement "déposés à la souris" sur une TForm.

Cordialement. Gilles