Discussion :

[SergioMaster]

Bonjour,

En fait, je tente de répercuter une action sur un tframe (créé au runtime)
n'y arrivant pas, j'ai élaboré un programme test au plus simple



l'objectif est de :
supprimer la frame dont le bouton est utilisé
faire en sorte qu'il n'y ait pas de vide

Code :

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

1
2
3
4
5
6
procedure TaFrame.btnRemoveClick(Sender: TObject);
begin
Visible:=False;
Parent:=nil;
// Free; // ? 
end;

sauf que et je ne vois pas comment redessiner le scrollbox
Comment faire appel à une méthode du parent ?

[SergioMaster]

Évidemment, une fois posée, j'ai une solution, toutefois si elle s'applique, je ne la trouve pas exceptionnelle.

1 - J'ai déclaré l'utilisation de l'unité principale dans ma clause uses;
2 - Ajouté une variable au niveau de ma frame;

Code :

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

1
2
3
public
    { Déclarations publiques }
    p : TMainForm;

3 - Modifié le code du bouton

Code :

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

1
2
3
4
5
6
7
procedure TaFrame.btnRemoveClick(Sender: TObject);
begin
Visible:=False;
// Parent:=nil; // RemoveObject(self);
p.redrawscrollbox;
// Free;
end;

4 - Créé cette fameuse méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMainForm.redrawscrollbox;
var i : integer;
begin
sp:=0;
for I := 0 to scrollbox1.ComponentCount-1 do
 begin
  if scrollbox1.Components[i] is TFrame then
   begin
    TFrame(scrollbox1.Components[i]).Position.Y:=sp;
    if TFrame(scrollbox1.Components[i]).Visible then
       sp:=sp+TFrame(scrollbox1.Components[i]).Height;
   end;
 end;
end;

Donc, de fait, je joue sur la propriété visible de la Frame, c'est cela qui me fait le plus tiquer (dois-je le préciser ?).
Reste que je ne sais pas si, dans mon application, cette astuce sera applicable.
Y a-t-il moyen de faire mieux ?

[Hermite]

Bonjour,
pour gérer un cas similaire, j'avais simplement utilisé un alignement sur les frames ajoutées dynamiquement :

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
 
Unité UDLGFitre
 
procedure TDLGFiltre.AddSort;
var myFrameSort : TFrameFilterSort;
begin
  inc(FIdxFrameSort);
  myFrameSort := TFrameFilterSort.Create(lstsort);
  myFrameSort.parent := lstSort;
  myFrameSort.Name := myFrameSort.Name + IntToStr(FIdxFrameSort);
  myFrameSort.Top := 999;
  myFrameSort.Align := alTop;
  myFrameSort.LstFieldSort := FFieldSortDispo;
  myFrameSort.OnChangeSort := ChangeSort;
  myFrameSort.OnDelete := DeleteSort;
 
  FlstSort.Add(myFrameSort);
end;

La position 999 est arbitraire. C'est juste s'assurer de positionner la frame en dessous de la précédente si l'ordre d'affichage des frames est important.

Ensuite pour la suppression, j'ai ajouté un évènement OnDelete sur la frame :

Code :

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

1
2
3
4
5
6
 
Unité UFrameFilter
  FOnDelete: TNotifyEvent;
 
 
  property OnDelete:TNotifyEvent read FOnDelete write FOnDelete;

Sur le bouton de suppression de la frame :

Code :

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

1
2
3
4
5
6
7
 
 
procedure TFrameFilterSort.btnDeleteClick(Sender: TObject);
begin
  if Assigned(FOnDelete) then
    OnDelete(Self);
end;

Qui est rattaché à la procédure de suppression dans la fenêtre hôte :

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
 
Unité UDlgFiltre
 
procedure TDLGFiltre.DeleteSort(Sender: TObject);
var i : integer;
begin  
  for i := FlstSort.Count -1 downto 0 do
  begin
    if FlstSort[i].GUID = TFrameFilterSort(Sender).GUID then
    begin
      FlstSort[i].Free;
      FlstSort.Delete(i);
    end;
  end;
  if FlstSort.Count = 0 then
    AddSort;
end;

Je ne sais pas si c'est la meilleure manière de faire, ni si ça répond bien au problème, mais de mon côté ça fonctionne bien.

[ShaiLeTroll]

Un FlowLayout ne permettrait pas d'empiler automatiquement, je ne connais pas FMX mais c'est ce qui ressemble le plus au FlowPanel

Et ça doit être pas être loin du Align alTop avec un top plus ou moins adapté pour forcer un ordre en VCL comme le souligne Hermite, parfois l'ordre change, un top différent évite cela ... même si je pense que pour FMX l'ordre dans la liste des controls du parent doit avoir un effet notable aussi puisque tout est dessiné

[SergioMaster]

j'avais simplement utilisé un alignement sur les frames ajoutées dynamiquement

Oui, l'alignement dans le cadre de ce test eusse put fonctionner

Un FlowLayout ne permettrait pas d'empiler automatiquement,

Effectivement, je n'avais pas pensé à celui-là. Cela aurait pu faire l'affaire pour cet exposé.

Mais, j'ai montré un essai simplifié à l'extrême qui avait surtout pour but de faire appel à une méthode du parent.

[ShaiLeTroll]

Si le but c'est d'utiliser le parent, là avec une dépendance explicite, une variable locale aurait fait l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TaFrame.btnRemoveClick(Sender: TObject);
var
  P: TWinControl
begin
  Visible:=False;
  P := Parent;
  Parent := nil; 
  if P is TMainForm then
    p.RealignFrameInScrollBox;
  // Release; // deprecated ... comment la Frame peut s'auto détruire ... au pire le owner le fera ! 
end;

Controls[] au lieu Components[] ... en supposant que FMX fonctionne comme la VCL ... ah non c'est Children si j'en crois la doc !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMainForm.RealignFrameInScrollBox;
var 
  i, sp : integer;
begin
  sp:=0;
  for I := 0 to scrollbox1.ChildrenCount - 1 do
  begin
    if scrollbox1.Children[i] is TFrame then
    begin
      TFrame(scrollbox1.Children[i]).Position.Y := sp;
      Inc(sp, TFrame(scrollbox1.Children[i]).Height;
    end;
  end;
end;

Ensuite, tu peux pousser à la place à un TNotifyEvent pour éviter la dépendance explicite, un couplage plus faible ...
EDIT : je n'ai pas lu tout ce qu'à écrit Hermite ... pour moi, c'est de loin le plus élégant sans être trop lourd (on pourrait faire une Interface à implémenter type Sink Event mais là c'est plus tordu qu'un simple CallBack)

Juste c'est la Frame qui a la responsabilité du Parent et non le gestionnaire ainsi par besoin d'un GUID qui a mon avis ne sert à rien, on peut comparer les références d'objets Sender et ceux d'une liste.
Et le Free même si appelé via CallBack au sein du OnClick du bouton ... libérer un Control en cours d'utilisation ça peut être délicat.

Code :

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

1
2
3
4
5
type
  TaFrame
  ...
  public
    property OnRemove: TNotifyEvent read FOnRemove write FOnRemove;

Code :

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

1
2
3
4
5
6
7
procedure TaFrame.btnRemoveClick(Sender: TObject);
begin
  Visible:=False;
  Parent := nil; 
  if Assigned(FOnRemove) then
   FOnRemove(Self);
end;

Ensuite

Code :

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

f.OnRemove := FrameRemoveEventHandler;

Code :

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

1
2
3
4
procedure TMainForm.FrameRemoveEventHandler(Sender: Object)
begin
  RealignFrameInScrollBox;
end;

[Paul TOTH]

j'utilise parfois cette astuce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
unit MainForm;
 
interface
 
uses
  MyFrame;
 
type
  TMain = class(TForm)
    procedure DoSomething();
  end;
...

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
 
unit MyFrame;
 
interface
 
type
  TMyFrame = class(TFrame)
    procedure test;
  end;
 
implementation
 
uses
  MainForm;
 
type
  TMyFrameHelper = class helper for TMyFrame
    function Main: TMain; inline;
  end;
 
function TMyFrameHelper.Main: TMain;
begin
  Assert(Parent is TMain); 
  Result := TMain(Parent);
end;
 
procedure TMyFrame.Test;
begin
  Main.DoSomething();
end;

le class helper ajoute une assertion car on s'attend à ce que le parent soit un TMain et ensuite je transtype...comme c'est une function "inline", elle évite simplement de faire un TMain(Parent) partout

c'est un Helper car on ne peux pas avoir MainForm dans le uses de la partie interface si la frame est déjà dans la partie interface de Main,

[Jipété]

Bonsoir,

supprimer la frame dont le bouton est utilisé
faire en sorte qu'il n'y ait pas de vide

Tu n'es pas allé au bout de ta demande/réflexion : quand tu enlèves une frame, surtout si ce n'est pas la plus en bas, tu vas avoir un trou, ça tu l'as vu, et ensuite tu as deux options : remonter ce qui suit le trou et tu vas te retrouver avec le trou en bas, ou recalculer la hauteur des frames restantes en fonction de leur nombre et de la place disponible.

J'ai beaucoup souffert sur cette manière de faire qui m'a obligé, au final, à utiliser un TPanel "bouche-trou" aligné en bas et dont la hauteur s'adapte pour faire en sorte que les frames aient toujours une taille identique et soient harmonieusement réparties.
Bien sûr, jouer sur la hauteur des frames ne peut se faire que si ce qu'elles affichent peut supporter le redimensionnement ; dans mon cas, s'agissant des formes d'onde de morceaux de musique, ça va tout seul.

Je ne donne pas de code parce qu'il est épouvantablement compliqué, chaque frame étant divisée en deux (canal gauche en haut, trait de séparation et canal droit dessous) et il faut que tout ça soit symétrique et plaisant à l'œil, ce qui oblige à avoir des frames dont la hauteur est impaire, sinon un canal serait plus grand que l'autre, en plus c'est codé en Lazarus.
Mais si je l'ai fait, d'autres peuvent le faire.

Pour la première ligne de ta demande, voilà comment je fais, depuis la frame concernée (chaque frame a son bouton) :

Code :

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

1
2
3
4
5
procedure Tfrm.sbClosePanelClick(Sender: TObject);
begin
  if StreamData <> 0 then LibereStreamData(True); // proc locale à l'unité unit4frame, ferme le son, libère le fichier, etc.
  MainForm.CloseMe(Self); // proc dans l'unité principale unit4fiche.
end;

Ce CloseMe(Sender: TComponent) dans l'unité principale se chargera avec une boucle de repérer la frame dont le nom lui est passé par "Self" et elle fera ce qu'il faut : libération de la frame concernée puis redimensionnement de la fiche comme expliqué ci-dessus.

sauf que et je ne vois pas comment redessiner le scrollbox
Comment faire appel à une méthode du parent ?

Pour redessiner, un OnResize ? Limite automatique, selon comment c'est codé. Enfin, j'dis ça j'dis rien, il me semble avoir vu passer le mot "fmx" dont il parait que c'est bien différent de "vcl" et je n'en dirai rien de plus, n'y connaissant rien.

[oneDev]

J'utilise quasiment la même méthode que Hermite avec un TNotifyEvent:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  frm: TMyFrame;
begin
  Inc(FId);
  frm := TMyFrame.Create(ScrollBox1);
  frm.Name := Format('MyFrame%d', [FId]);
  frm.Parent := ScrollBox1;
  frm.OnDelete := nil;
  frm.Align := alBottom; // pour être ajouté à la fin
  frm.Align := alTop;
end;
 
procedure TForm1.DeleteFrame(Sender: TObject);
begin
  if (Sender is TMyFrame) then
    Sender.Free;
end;

[pprem]

Pour la suppression j'ai maintenant tendance à la soumettre en file d'attente avec un

Code :

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

Thread.ForceQueue(procedure begin Self.Free; end);

Pour la demande de recalcul (à faire une fois le cadre supprimé ou masqué), plusieurs autres options :
- implémentation d'une interface sur la fiche, ce qui te permet de remonter sur les parents de la TFrame jusqu'à un "IQuelqueChose" ou nil
- création d'un "événement" sur la frame que la fenêtre peut renseigner pour lui dire quoi appeler lorsqu'on supprime la frame. Il suffit d'ajouter une variable "procedure of object" avec ou sans paramètres selon ce que tu veux fournir à la fiche quand tu l'appelles et faire le lien lors de la création de la TFrame.

[Paul TOTH]

j'utilise aussi parfois un TObjectList que je clear dans OnIdle

https://quality.embarcadero.com/browse/RSP-33676