Discussion :

[jt_artzak]

Bonjour à tous,

En testant la création de compo visuel, je rencontre un problème que je n'avais pas en VCL.

Contexte : création à la volée d'un objet visuel comportant un bouton pour se "détruire" . 1 gridpanellayout (addrow) contenant 2 Ttext, sur le premier TText un bouton en alignement haut/droit

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
 
 TTickerMeteo = class(TPanel)
    private
    GridPanelLayout1: TGridPanelLayout;
    TextTownName: TText;
    TextTempValue: TText;
    Button1: TButton;
    FTempValue: string;
    FTownName: string;
    procedure SetTownName(const Value: string);
    procedure SetTempValue(const Value: string);
    //procedure ClickButton(Sender : TObject);
    public
    constructor Create(AOwner: TComponent); override;
    destructor destroy();override;
    property TownName : string read FTownName write SetTownName;
    property TempValue : string read FTempValue write SetTempValue;
    procedure ClickButton(Sender : TObject);
  end;

Le composant est hérité d'un TPanel, oui pourquoi? bah pourquoi pas...

le create :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
constructor TTickerMeteo.Create(AOwner: TComponent);
var
  I: Integer;
begin
//init des objets
inherited create(nil);
Align := TAlignLayout.Client;
Parent := TFMXObject(Aowner);
//GridPanelLayout
 
GridPanelLayout1 := TGridPanelLayout.Create(self);
GridPanelLayout1.RowCollection.Clear;
GridPanelLayout1.ColumnCollection.Clear;
 
GridPanelLayout1.Margins.Left := 10;
GridPanelLayout1.Margins.Top := 10;
GridPanelLayout1.Margins.Right := 10;
GridPanelLayout1.Margins.Bottom := 10;
GridPanelLayout1.Align := TAlignLayout.Client;
GridPanelLayout1.Parent := TFMXObject(AOwner);
GridPanelLayout1.ExpandStyle := TGridPanelLayout.TExpandStyle.AddRows;
 
TextTownName := TText.Create(self);
TextTownName.Stretch := false;
//TextCoinName.Width := 200;
TextTownName.TextSettings.HorzAlign := TTextAlign.Center;
TextTownName.TextSettings.VertAlign := TTextAlign.Center;
TextTownName.Text := 'Town Name';
TextTownName.Align := TAlignLayout.Client;
 
 
TextTempValue := TText.Create(self);
TextTempValue.Stretch := false;
//TextCoinValue.Width := 200;
TextTempValue.TextSettings.HorzAlign := TTextAlign.Center;
TextTempValue.TextSettings.VertAlign := TTextAlign.Center;
TextTempValue.Text := 'Temp Value';
TextTempValue.Align := TAlignLayout.Client;
//TextCoinValue.Parent := GridPanelLayout1;
 
 
GridPanelLayout1.ColumnCollection.BeginUpdate;
GridPanelLayout1.RowCollection.BeginUpdate;
 
 //Ajout TText
   with GridPanelLayout1 do
    begin
      ColumnCollection.Add;
      ColumnCollection.Items[0].SizeStyle := TGridPanelLayout.TSizeStyle.Percent;
      ColumnCollection.Items[0].Value := 100;
      RowCollection.Add;
      RowCollection.Items[0].SizeStyle := TGridPanelLayout.TSizeStyle.Percent;
      RowCollection.Items[0].Value := 50;
      RowCollection.Add;
      RowCollection.Items[1].SizeStyle := TGridPanelLayout.TSizeStyle.Percent;
      RowCollection.Items[1].Value := 50;
 
    end;
 
TextTownName.Parent := GridPanelLayout1;
TextTempValue.Parent := GridPanelLayout1;
 
GridPanelLayout1.RowCollection.EndUpdate;
GridPanelLayout1.ColumnCollection.EndUpdate;
 
 
Button1 := TButton.Create(self);
Button1.Align := TAlignLayout.None;
Button1.Anchors := [TAnchorKind.akTop,TAnchorKind.akRight];
Button1.Size.Height := 35;
Button1.Size.Width := 35;
Button1.parent := TextTownName;
Button1.Position.X := TextTownName.Width-35;
Button1.Position.y := 0;
Button1.Text := 'X';
Button1.OnClick := ClickButton;
 
end;

Sur la form principal 2 panel, 1 button, le bouton associé au panel en align top et le 2ème panel en align client.
Sur le click du bouton :

Code :

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

1
2
3
 
tempTicker := TTickerMeteo.create(Panel2);
tempTicker.Button1.OnClick := MyClick;

et la procédure ClickButton :

Code :

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

1
2
3
4
 
self.BeginUpdate;
TControl(Sender).Parent.Parent.DisposeOf;
self.EndUpdate;

Voilà tout semble fonctionner, mais après avoir créé un objet puis l'avoir détruit je perd le control sur la form (déplacer la fenêtre, agrandir, réduire, fermer) pour reprendre le control il faut recliquer sur le bouton...

Merci d'avance.

Pour Info Delphi 10.4.2 / Win10 64bits

[SergioMaster]

Bonjour,
J'ai eu ce même problème quand j'ai voulu ajouter des boutons "fermer" pour mes TabItems. Je présume donc qu'il s'agit du même phénomène, heureusement la communauté Delphi s'en est mélé.
Il faudrait rechercher la discussion pour les explications (retrouvée ici)

le code final

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
procedure TMainForm.CloseTab(Sender: TObject);
var F : TForm;
begin
 if not Datas.PeutFermer then Exit;  // équivalent d'un OnCloseQuery

 if TabControl1.TabIndex=TabControl1.TabCount-1 then TabControl1.Previous else TabControl1.Next;  // passage au prochain tabitem

 if Liste.TryGetValue(TButton(Sender).TagString,F) then // vérifie que la forme existe et la détruit
   F.Close;

 TTask.Run(
    procedure
    begin
      TThread.Synchronize(nil,
        procedure
        begin
         TButton(Sender).TagObject.DisposeOf;
         if TabControl1.TabIndex>TabControl1.TabCount-1
           then TabControl1.TabIndex:=TabControl1.TabCount-1
        end);
    end);
 Liste.Remove(TButton(Sender).TagString); // ôte la forme de la liste 
end;

L'important (en bleu) utiliser un thread pour la destruction

[jt_artzak]

It Works!!! Merci Sergio "Senseï" Master

[pprem]

Le Thread.forceQueue() suffit, pas besoin d'ouvrir une tache puis la synchroniser.

Le DisposeOf() n'est plus nécessaire depuis l'arrêt de ARC, un .Free() comme en VCL passe très bien.

A noter quand même qu'un Free() dans un événement de l'objet que l'on veut supprimer peut déclencher des violations d'accès sur iOS, donc soumission en file d'attente d'une façon ou d'une autre obligatoire.

[ShaiLeTroll]

@SergioMaster et @pprem , le Release qui existait encore dans Seattle permettant de mettre un objet dans le Purgatoire en vue d'une libération différée, par quoi est-il remplacé en Sydney puisque Déprécié
C'est exactement ce que fait ce Thread Synchronize, il fait juste différer le moment de suppression dans une autre itération de la boucle principale Run
une autre technique serait de le gérer dans OnIdle via une petite liste ou référence ... le Synchronize étant lui aussi fait lors du Idle car l'application a le temps pour traiter ça

[SergioMaster]

@pprem le code était écrit avec la 10.3 d'où le DisposeOf. Le ForceQueue je ne connaissais pas, effectivement ce serait plus "propre"

@shailetroll il y a quelques trucs qui m'ont toujours rendu "frileux" le OnIdle en fait partie, certainement par manque de connaissance.
Pour ce qui est du DisposeOf plutôt que du Release était déjà déprécié en 10.3 (ARC oblige ?) il le resterait pour Sidney (malgré l'abandon d'ARC ?)