Discussion :

[tintin62]

Bonjour
je viens m'apercevoir que sous FMX
je ne vois pas comment faire apparaitre une
deuxième fenêtre (Tform2) et de l'appeler avec Showmodal
sa existe ou pas
si dans la négative comment vous faire pour
faire apparaitre
exemple: un formulaire a remplir ou une fiche pour cocher
des options

merci encore a vous tous

[tintin62]

bonjour
je viens de voir qu'on le remplace par des popups
avez des exemples comment sa marche
merci

[XeGregory]

Oui, FMX supporte bien ShowModal, mais son comportement varie selon la plateforme (Windows ou Mobile).

https://docwiki.embarcadero.com/Libr...Form.ShowModal

sur Windows FMX se comporte comme VCL : ShowModal fonctionne de façon synchrone et vous pouvez créer/afficher TForm2 puis récupérer ModalResult. Sur mobile il faut préférer l’overload asynchrone ou des alternatives (frames/popups).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(nil);
  try
    if Form2.ShowModal = mrOk then
      // récupérer valeurs depuis Form2
  finally
    FreeAndNil(Form2);
  end;
end;

je viens de voir qu'on le remplace par des popups
avez des exemples comment sa marche

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
procedure TForm1.ShowOptionsPopup(Sender: TObject);
var
  P: TPopup;
  L: TLayout;
  CB1, CB2: TCheckBox;
  BtnOK, BtnCancel: TButton;
begin
  // Création du popup
  P := TPopup.Create(Self);
  P.Parent := Self; 
  P.PlacementTarget := Sender as TControl;
  P.Placement := TPlacement.Bottom;
  P.HorizontalOffset := 0;
  P.VerticalOffset := 6;
 
  // Conteneur pour mise en page
  L := TLayout.Create(P);
  L.Parent := P;
  L.Align := TAlignLayout.Top;
  L.Padding.Rect := TRectF.Create(8,8,8,8);
 
  // Checkboxes
  CB1 := TCheckBox.Create(P);
  CB1.Parent := L;
  CB1.Position.Y := 4;
  CB1.Text := 'Option A';
 
  CB2 := TCheckBox.Create(P);
  CB2.Parent := L;
  CB2.Position.Y := CB1.Position.Y + 36;
  CB2.Text := 'Option B';
 
  // Boutons
  BtnOK := TButton.Create(P);
  BtnOK.Parent := L;
  BtnOK.Position.Y := CB2.Position.Y + 44;
  BtnOK.Text := 'OK';
  BtnOK.OnClick := 
    procedure(Sender2: TObject)
    begin
      // Récupérer valeurs et fermer
      if CB1.IsChecked or CB2.IsChecked then
      begin
        Self.Tag := Integer(CB1.IsChecked) or (Integer(CB2.IsChecked) shl 1);
      end;
      P.IsOpen := False;
      P.Free;
    end;
 
  BtnCancel := TButton.Create(P);
  BtnCancel.Parent := L;
  BtnCancel.Position.Y := BtnOK.Position.Y;
  BtnCancel.Position.X := BtnOK.Position.X + 90;
  BtnCancel.Text := 'Annuler';
  BtnCancel.OnClick := 
    procedure(Sender2: TObject)
    begin
      P.IsOpen := False;
      P.Free;
    end;
 
  // Ouvrir le popup
  P.IsOpen := True;
end;