Discussion :

[Invité]

Bonjour,

J'en suis à la "fin" de ma Grid. J'ai un code fonctionnel mais j'ai encore quelques approximations dans les explications relatives à sa formulation.

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
procedure TfELVL.DBGrid1DblClick(Sender: TObject);
var
  aPt: TPoint;
  aGc: TGridCoord;
  aRect : TRect;
  aEdit : TEdit;
begin
  GetCursorPos(aPt);
  with Sender as TDBGrid do begin
    aPt   := ScreenToClient(aPt);
    aGc   := MouseCoord(aPt.X, aPt.Y);
    aRect := CellRect(aGc.X, 0);
    Canvas.FillRect(aRect);
    aEdit := TEdit.Create(nil);
    with aEdit do begin
      Parent  := Sender as TDBGrid;
      Left    := aRect.Left;
      Top     := aRect.Top;
      Width   := aRect.Width;
      Height  := aRect.Height;
    end;
  end;
end;

Le but de ce code est de créer un TEdit, là où l'entête de la Grid a été double-cliquée. Cet Edit sert de champ de recherche.
Première question : aEdit := TEdit.Create(nil); ou aEdit := TEdit.Create(self); Le self renvoie à la Form. Lequel privilégier et pourquoi ? Par défaut j'utilise nil... mais à vrai dire sans explication possible de ma part... Evidemment pour le Parent, il est en tout autrement.
Deuxième question : Pourquoi dois-je écrire : Parent := Sender as TDBGrid; dans la mesure où quelques lignes plutôt et dans la portée de la définition, j'ai précisé "with Sender as TDBGrid do begin" ce qui stipule en clair que le Sender est un dbGrid... donc Parent = Sender devrait passer. Enfin ce n'est pas le cas.

Merci.

[ShaiLeTroll]

Le but de ce code est de créer un TEdit, là où l'entête de la Grid a été double-cliquée. Cet Edit sert de champ de recherche.
Première question : aEdit := TEdit.Create(nil); ou aEdit := TEdit.Create(self); Le self renvoie à la Form. Lequel privilégier et pourquoi ? Par défaut j'utilise nil... mais à vrai dire sans explication possible de ma part... Evidemment pour le Parent, il est en tout autrement..

Avec nil, il est préférable de gérer la libération mais ...
Avec Self, le Edit à un Owner, il sera libéré implicitement à la libération du Onwer, c'est juste une notion de propriété de la mémoire !

Avec nil mais, comme tu affectes un Parent, si le Parent est détruit, ce dernier va aussi détruire ses enfants
Le Parent joue le rôle de Owner au final, ... c'était mal documenté avant mais maintenant c'est clair :

Remarque : La propriété Parent déclarée dans TControl est similaire à la propriété Owner déclarée dans TComponent, dans le sens où le Parent d'un contrôle libère le contrôle de même que le propriétaire d'un composant libère ce composant. Néanmoins, le Parent d'un contrôle est toujours un contrôle fenêtré contenant visuellement le contrôle en question et est responsable de l'écriture du contrôle dans un flux lorsque la fiche est enregistrée. Le propriétaire d'un composant est le composant transmis comme paramètre dans le constructeur et, s'il est affecté, lance le processus d'enregistrement de tous les objets (y compris le contrôle et son parent) lorsque la fiche est enregistrée

Deuxième question : Pourquoi dois-je écrire : Parent := Sender as TDBGrid; dans la mesure où quelques lignes plutôt et dans la portée de la définition, j'ai précisé "with Sender as TDBGrid do begin" ce qui stipule en clair que le Sender est un dbGrid... donc Parent = Sender devrait passer. Enfin ce n'est pas le cas.

Merci.

on te laisse toujours accéder à Sender tel qu'il est à l'origine,
le with n'est pas une déclaration mais juste rend implicite l'élément cible
le with ne modifie pas l'interprétation de Sender par le compilateur
il manque une sorte de WithSelf qui permettrait d'accéder à la variable dans le with !
mais si WithSelf existait

Code :

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

1
2
3
 with Sender as TDBGrid do begin
    with aEdit do begin
      Parent  := WithSelf;

Qui est WithSelf ??? le Sender, le aEdit ???
Les with multiples ou les with imbriqués serait très complexe à gérer,
et au final un WithSelf serait plus compliquer que d'utiliser la variable directement

[Invité]

Bonjour ShaiLeTroll,

OK. Merci. C'est parfaitement clair.