Utilisation de FMX.Forms.TFmxFormState

Version imprimable

10/10/2014, 19h31
Invité

Utilisation de FMX.Forms.TFmxFormState

Bonjour,

Quelqu'un sait-il comment on utilise fsCreating dans FormState ? Et éventuellement Recreating, Modal, Released, InDesigner, WasNotShown, Showing, UpdateBorder, Activation, Closing, Engaged. Soit j'oublie une unit dans les uses, soit ma syntaxe est erronée, soit les 2 :mouarf:. J'ai commencé par un simple :

Code:

if (fsCreating in Form1.FormState)

:oops:
Réponse

Citation:

[dcc32 Erreur] CustomTreeFrm.pas(186): E2003 Identificateur non déclaré : 'fsCreating'

Merci.
11/10/2014, 06h44
SergioMaster

Bonjour Gilles ,

depuis XE et FMX la plupart de ces valeurs d'états que ce soit pour les formes , les grilles , les datasets , doivent être indiqués avec leur nom [Edit] ~~d'unité~~ de classe (:furax: énervant non ?)

essayes FMXFormState.fscreating (sans garantie)

Bonjour Serge,

Citation:

Envoyé par SergioMaster

essayes FMXFormState.fscreating (sans garantie)

FMXFormState. -> Je ne vois pas de fsCreating.

Par contre en effet quelque chose de ce genre semble fonctionner

Code:

if (TFmxFormState.fsModal in Form1.FormState) then Form1.Close;

ou

Code:

if (TFmxFormState.WasNotShown in Form2.FormState) then ...

A la rigueur ce n'est pas vraiment problématique. Il y a une approche assez similaire sur les constantes en Qt.

Entre temps, j'ai changé d'approche. Je cherchais à fermer la (parmi 20) Form modale ouverte à partir d'un Timer de la Form principale.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TCustomTreeViewFrm.Timer1Timer(Sender: TObject); var hh, mn, ss : integer; Form: TCommonCustomForm; begin if nTps > 0 then begin dec(nTps); laTPS.Text := FormatDateTime('hh:nn:ss', ntps / SecsPerDay); end else begin Timer1.Enabled := False; TreeView1.Enabled := False; Form := Screen.ActiveForm; if not (TForm(Form).Name = Self.Name) then TForm(Form).Close; //if (TFmxFormState.fsModal in Form1.FormState) then Form1.Close; //if (TFmxFormState.fsModal in Form2.FormState) then showmessage('2'); //if (TFmxFormState.WasNotShown in Form2.FormState) then showmessage('2'); Showmessage('L''épreuve est terminée. A Bientôt.'); end; end;
Et là, j'ai un problème déjà rencontré sous Lazarus je crois.
http://www.selzig.com/1410111100/1.png
Dans le code juste au-dessus, le showmessage est traité avant la fermeture réelle de la Form modale active (ici Form 2) donc non séquentiellement. On y remédie comment ? (on peut avec un autre timer qui contrôle la valeur d'un flag :oops:).

Au fait, avec les styles, j'ai découvert qu'on pouvait réaliser le fameux delegate de Qt. Je crois que c'est ce que voulait m'indiquer Paul, mais à ce moment-là, j'étais concentré sur un point particulier des styles et donc non réceptif : désolé. Mais j'ai l'habitude de relire les messages... plus tard. J'en suis à quelques objets. Je ne sais pas si c'est généralisable et encore une fois, si c'est dans le respect de l'orthodoxie. Ce dernier point est important parce que si tel n'est pas le cas, et s'il s'agit d'une utilisation "border-line", une simple correction (évolution) du code de Delphi peut, dans une prochaine release, rendre caduque mon approche. Mais en attendant, c'est "génial".... un peu lourd mais les delegates aussi. Mais, il y a toujours un mais-, je suis encore une fois "contrarié" (i. e. frustré). Fort de ceci, on pourrait réaliser "facilement" des StringGrid ou TreeView gérant le HTML s'il existait un simple TEditHTML, voire un TLabelHTML... et évidemment, ce n'est pas un composant de base ! :aie: Les Pascaliens sont fâchés avec le HTML ?
Merci.

11/10/2014, 11h12
tourlourou

Bonjour,

Ne faudrait-il pas envoyer un message de fermeture bloquant à la fenêtre concernée (je ne sais plus si c'est un SendMessage ou un PostMessage sous Windows, ni s'il existe un équivalent FMX multi-plateformes) ?
11/10/2014, 11h18
Invité

Bonjour Yves,

Ah les Send/Post Messages :ptdr:... Depuis Lazarus, je les fuis comme la peste : je me rappelle d'énormes problèmes de portabilité... et je crois que je n'ai pas tout compris :?

Mais je me demande comment le showmessage fonctionne. A mon avis, le Form.close est traité avant le showmessage. Mais le temps qu'il soit exécuté, le showmessage bloque la pile des traitements et bloque la fermeture de la Form modale. Et donc, c'est l'action sur son bouton du showmessage qui déverrouille la pile et permet la suite de l'exécution de la procédure de fermeture.
Je suppose que showmessage fonctionne comme les autres Dialogs.Messages: http://docwiki.embarcadero.com/Libra...#Code_Examples

Pour les messages, je regarde si c'est fonctionnel en FMX... et surtout comment :D

Avec un Timer supplémentaire, cela fonctionne

Code:

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
var
   bMessage : Boolean;
 
implementation
 
procedure TCustomTreeViewFrm.Timer1Timer(Sender: TObject);
var
  hh, mn, ss : integer;
  Form: TCommonCustomForm;
begin
  if nTps > 0  then begin
    dec(nTps);
    laTPS.Text := FormatDateTime('hh:nn:ss', ntps / SecsPerDay);
  end else begin
    Timer1.Enabled := False;
    TreeView1.Enabled := False;
    Form := Screen.ActiveForm;
    if  not (TForm(Form).Name = Self.Name) then begin
      //Normalemen impossible (à vérifier)
      with timer2 do
        if Enabled then Enabled := true;
      //
      bMessage := False;
      TForm(Form).Close;
      bMessage := True;
      timer2.Enabled := true;
    end;
  end;
end;
 
procedure TCustomTreeViewFrm.Timer2Timer(Sender: TObject);
begin
  if bMessage then begin
    bMessage := false;
    timer2.Enabled := false;
    Showmessage('L''épreuve est terminée. A Bientôt.');
  end;
end;

Je note les sendmessage à voir.
Merci pour l'aide apportée.

11/10/2014, 12h00
tourlourou

Bonjour Gilles,

Je comprends les objections !

On peut essayer alors de contourner le problème à l'aide d'un message envoyé par la fiche se fermant (au besoin selon une condition passée en paramètre à sa méthode Close surchargée) [EDIT] pour déclencher le ShowMessage, à l'instar de la solution postée ci-avant avec un Timer. [/EDIT]
11/10/2014, 18h03
Invité

Rebonjour Yves,

je vais essayer de comprendre comment cela fonctionne. Merci.