Discussion :

[Zacheus]

Bonjour,

j'ai besoin de quelques précisions sur l'ordre des événements de création des Forms sous Windows et OSX
Je dispose de 2 Forms, Form1 et Form2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
unit Unit2;
interface
 
uses
 
type
  TForm2 = class(TForm)
     procedure FormActivate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
     IDin : String;
  end;

Form1 appelle Form2 "en" lui transmettant une valeur :

Code :

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

1
2
3
4
5
6
7
8
9
unit Unit1;
uses Unit2;
 
if not assigned(Form2) then
  Application.CreateForm(TForm2, Form2);
Form2.IDin := 'aValue';
Form2.ShowModal;
[...]
FreeAndNil(Form2);

Si je place un Showmessage(IDin) dans le create de Form2, j'obtiens évidemment une chaîne vide. Là n'est pas la question. Ma question est quel est le premier événement traité systématiquement par un ShowModal afin que je puisse récupérer la valeur de IDin tansmise dans l'appel par Form2.IDin := 'aValue'; ? FormActivate ? Valable dans tous les OS Desktop ? Valable qu'assigned(Form2) soit vrai ou pas ? Valable pour un Show (à la place d'un ShowModal) ?
Bref, je cherche l'ordre des événements d'ouverture d'une Form par Show ou ShowModal sous Windows et sous OS X avec FireMonkey ?
Je pourrais tester, mais si un tel document existe cela me simplifierait la vie... et pour avoir pratiquer lazarus, j'ai constaté qu'il existait de petites différences d'un OS (Windows) à l'autre (Linux).

Merci. Zac

[ThWilliam]

Bonjour.

Pour l'ordre des événements : http://bardou.pagesperso-orange.fr/m...eexecution.htm

Dans ton cas, puisque tu crées dynamiquement Form2, l'initialisation des variables, propriétés, composants de Form2 peut se faire à partir de Form1, ou dans l'événement OnShow de Form2.

Cordialement
Thierry

[anapurna]

salut
pourquoi ne pas creer une methode dans Form2 que tu appel par exemple init

Code :

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

1
2
3
4
5
Procedure TForm2.Ini(Avalue : String);
begin
  // Je traite mon info 
  Showmodal;
end;

et dans form1

Code :

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

1
2
3
4
5
6
 
  if not assigned(Form2) then
     Application.CreateForm(TForm2, Form2);
  Form2.init('aValue');
  [...]
  FreeAndNil(Form2);

[Zacheus]

Bonjour

Anapurna, cela me semble simple en effet. Appeler showmodal à partir d'une méthode de Form2 elle-même, cela ne semble pas poser de problème...

Un classique

Code :

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

1
2
3
4
5
6
procedure TfMain.Button1Click(Sender: TObject);
begin
   if not Assigned(Form1) then
      Application.CreateForm(TForm1, form1);
      Form1.ShowModal;
end;

crée la succession des événements suivante :

• Create
• FormResize x 2
• Paint x 2 [Apparition de la Form au 1er]
• FormShow
• OnActivate

puis

• OnClose
• OnActivate
• FormSaveStat

Et avec ta méthode, j'obtiens un OnCreate, OnResize, OnInit (appel de ton init) , OnResize, OnPaint x2, OnShow, OnActivate puis à la fermeture Hide.... Donc au niveau de la séquence des événements cela semble équivalent. Et dans le cas précis, c'est la séquence des événements d'ouverture qui m'intéresse. J'ai besoin qu'elle soit la même sous les 2 OS.

Cela sous windows. Je n'ai pas d'os X en ce moment. Mon nouveau Mac Mini est déjà reparti chez mon fournisseur. J'avais choisis le modèle 8 Go le plus puissant de cette gamme (et disponible immédiatement) pour l'amener à 16 Go... pensais-je, et utiliser VirtualBox... Mais contrairement à mon ancien modèle (que j'ai donné un peu précipitamment ), le nouveau boitier est scellé et en plus, la RAM est soudée... donc à priori, impossible de l'amener à 16Go.

Franchement j'hésite. VirtualBox, c'est sûr mais sur quel OS de départ ? Mon PC est maintenant à 16 Go, dispose de VirtualBox...

[SergioMaster]

Mais contrairement à mon ancien modèle (que j'ai donné un peu précipitamment ), le nouveau boitier est scellé et en plus, la RAM est soudée... donc à priori, impossible de l'amener à 16Go.

encore un sale coup de la marque

Franchement j'hésite. VirtualBox, c'est sûr mais sur quel OS de départ ? Mon PC est maintenant à 16 Go, dispose de VirtualBox...

sauf que, s'il est permis de mettre un Windows dans un virtualbox sous Mac, l'inverse (OSX sur Windows) n'est pas possible pour cause de licence, la manip est néanmoins faisable mais passible de la loi

[Zacheus]

Ce n'est pas ce que m'assuré le vendeur à qui j'ai rapporté le Mac. Mais, il a peut-être (certainement) dit cela face à mon agacement. A priori, selon ses dires, la licence OS X peut-être achetée séparément. Ce qui ne signifie pas que cela te permet de l'installer légalement sur un autre matériel qu'un Apple. Mais il est vrai que je n'ai jamais lu la licence OS X ni celle de Windows d'ailleurs, pas plus que celle de VirtualBox . En regardant sur le net, cela semble effectivement illégal. Mais pour l'instant, je crois que je vais m'abstenir d'en recommander un autre. Il faudrait pas prendre les clients... pour des "pommes". Vivement que Delphi passe à Linux !

Au fait, j'ai reçu une réponse pour la TMSFMXgrid avec l'utilisation de la méthode AllCells[] pour les cellules cachées (ShowMessage(AllCells[aCol, aRow])); mais je n'ai pas testé encore. Je suis en train de me battre avec FireDac pour réaliser le duplicata d'un DataSet à partir d'une classe dédiée aux accès. Je crois qu'une nouvelle fois je vais basculer vers Uni.