Discussion :

[SergioMaster]

FMX ne semble pas connaitre ces termes .

Après maints essais et recherches google , j'ai plus ou moins réussi une pseudo frame selon la méthode indiquée dans le wiki

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
 
type
  TForm15 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Lang1: TLang;
    Layout1: TLayout;
    procedure AjouterClick(Sender: TObject);
    procedure EffacerClick(Sender: TObject);
  private
    { Déclarations privées }
    procedure EmbeddForm(AParent:TControl; AForm:TCustomForm);
  public
    { Déclarations publiques }
  end;
 
var
  Form15: TForm15;
 
implementation
 
{$R *.fmx}
 
uses Unit16;
 
procedure TForm15.AjouterClick(Sender: TObject);
begin
 EmbeddForm(Layout1, TForm16.Create(self));  // afficher la 'fausse frame'
end;
 
// équivaut a la frame 
procedure TForm15.EmbeddForm(AParent:TControl; AForm:TCustomForm);
begin
  while AForm.ChildrenCount>0 do
    AForm.Children[0].Parent:=AParent;
end;
 
procedure TForm15.EffacerClick(Sender: TObject);
begin
  Layout1.DeleteChildren;    // efface bien les enfants 
  // cependant les contrôles apparaissent toujours 
end;

si la méthode fonctionne pour l'ajout des composants , par contre impossible de l'effacer . Dans mon test , la TForm16 contient un label et un bouton . Après la procedure effacerClick le bouton et le label sont toujours visible , cependant le bouton ne fonctionne plus .

j'ai essayé plusieurs choses pour effacer :
- Encadré le deletechildren avec un BeginUpdate et EndUpdate
- Ajouté un repaint etc...
Rien n'y fait

n'y aurait t-il aucun moyen d'avoir du docking avec FMX ?! c'est bien beau des applications 'mono forme' mais pour une bonne grosse application c'est un peu léger . FMX me semble bien jeune

[tourlourou]

Bonjour,

Ne faut-il pas plutôt ajouter les enfants par TLayOut.Add() ?

[SergioMaster]

Bonjour,

Ne faut-il pas plutôt ajouter les enfants par TLayOut.Add() ?

pourquoi pas , effectivement , mais où j'ai mis Layout cela aurait pu aussi bien être un Panel ou un Tabcontrol (en fait j'ai essayé ces 2 autres également ) .

En fait j'ai suivi ce qui était indiqué dans le wiki ici

[tourlourou]

Il faut donc peut-être garder une référence sur la fiche pour changer son Parent (nil) et la détruire si on n'en a plus besoin.

[alheuredudejeuner]

Bonsoir

Je n'ai pas pu tester les dernières réponses reçues faute de temps mais,

Pour avoir une pseudo frame ou une fenêtre enfant, il y a un truc simple

form1, form pricipale contient un panel1

form2, contient un panel2 avec un button1

Si je met form2.panel2.parent := form1.panel1, form2 visible:=false, alors j'ai le contenu du panel2, dans dans form1 avec le code du button1 du panel2.

Voilà, si ça peux aider

Cordialement

André

[SergioMaster]

Eureka

la 'formule magique' était invalidateRect et ce qu'un repaint/refresh ou tout autre test ne faisait pas s’accomplit

Code :

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

1
2
3
4
5
procedure TForm15.EffacerClick(Sender: TObject);
begin
  Layout1.DeleteChildren;    // efface bien les enfants 
  Layout1.InvalidateRect(Layout1.BoundsRect);
end;

il me reste encore 11 jours d'essais pour trébucher sur ces nouveaux concepts

[ShaiLeTroll]

nouveaux concepts

InvalidateRect n'est pas si nouveau que cela !
Cela existait déjà dans la VCL encapsulé dans Invalidate.
C'est même une API Windows !

Dommage Invalidate n'existe que dans TCommonCustomForm mais pas dans le TControl

Les Developpeurs de FMX ont été assez malin pour reprendre un vocabulaire connu issu de la VCL ou Microsoft (lié aussi à la couche GDI \ DirectX)
Mais aurait pu fournir quelques autres facilités !

[SergioMaster]

je ne parlais pas de 'nouveaux concepts' en me référent a InvalidateRect .
Mais plutôt aux parentés de composants .

Les Developpeurs de FMX ont été assez malin pour reprendre un vocabulaire connu issu de la VCL ou Microsoft

S'ils étaient si malins , un deletechildren aurait du forcer cet invalidate non ?

des propriétés comme Anchors me manquent , des fonctionnalités comme le Docking avec son gestionnaire me manquent également beaucoup .
Tout cela est certainement du a mon 'inexpérience' des fmx les possibilités sont certainement énormes mais la documentation nettement moins (merci youtube)

exemple : essayes de faire un F1 sur DeleteChildren ou encore sur canclip,clipchildren,clipParent

mais bon , je suis loin d'avoir fait le tour de la question . Avant de me lancer j’essaye de mettre le doigt sur des points selon mes habitudes de programmation VCL (ce qui est peut être mauvais) et de trouver la solution FMX

[ShaiLeTroll]

Pour DeleteChildren, c'est toujours difficile, c'est vrai qu'ils auraient pu provoquer un Refresh et avoir la possibilité d'un Begin\EndUpdate pour grouper les traitements et avoir le Refresh qu'à la fin !

DeleteChildren étant utilisé par CloneChildFromStream, on dirait plus une méthode privée qui est a été mis en publique au dernier moment
Cela se voit en lisant l'aide de DeleteChildren qui est très légère et décrit plus CloneChildFromStream qu'autre chose !

Pour le Docking, je ne l'ai jamais utilisé, je n'ai jamais dépassé le stade de l'affectation d'un Parent à une TForm

Et oui les habitudes VCL doivent toutes être remise en cause en FMX, même si tout plein de truc ont les mêmes noms mais ne font pas tout à fait la même chose !

Pense que la documentation contient un FeedBack, il ne faut pas hésiter à leur indiquer les imprécisions !
La QC est là aussi pour cela !

[SergioMaster]

c'est ce qui m'a fait dire

FMX me semble bien jeune

[ShaiLeTroll]

FMX est jeune mais son "modèle" VGScene d'Eugene Kryukov a près de 5 ans !

[SergioMaster]

A voir une vidéo proposant une autre manière de faire le 'Framing' très convaincante
ici