Discussion :

[Papy214]

Hello tout le monde

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
 
function Confirm(Question: string): Boolean;
var
  R: Boolean;
begin
  TDialogService.PreferredMode := TDialogService.TPreferredMode.Platform;
  TDialogService.MessageDialog(Question, TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbNo, 0,
  procedure(const AResult: TModalResult)
  begin
    case AResult of
      mrYes: R := True;
      mrNo : R := False
    else
      R := False;
    end;
  end);
 Result := R;
end;

Quelqu'un saurait pourquoi cette boite de dialogue n'est pas bloquante ?

[free07]

Bonjour,

C'est avec quel OS cible que cela n'attend pas une réponse de l'utilisateur ?

L'attente d'une réponse dépend de l'OS cible, ci dessous extrait de la doc Berlin :

MessageDialog peut fonctionner de façon synchrone ou asynchrone selon le mode préféré. MessageDialog appelle MessageDialogAsync ou MessageDialogSync en interne.

Quand PreferredMode est défini sur Platform :

Sur les plates-formes de bureau (Windows et OS X), MessageDialog a un comportement synchrone. L'appel se termine uniquement quand l'utilisateur ferme la boîte de dialogue.
Sur les plates-formes mobiles (Android et iOS), MessageDialog a un comportement asynchrone. L'appel se termine instantanément, il n'attend à ce que l'utilisateur ferme la boîte de dialogue.

Pour forcer un comportement spécifique pour les plates-formes différentes, définissez PreferredMode sur Sync ou ASync (Non pris en charge par Android).

[Papy214]

Sur Windows ! La doc dit effectivement que ça devrait être bloquant mais ça ne l'est pas.
Enfin, je vais être plus précis.
Le message s'affiche à l'ouverture du programme au moment du FormShow.
Il est en premier plan mais la fenêtre principale reste accessible et en cas de manip' imprévue , le message peut passer derrière la fenêtre principale que l'on peut bouger sans problème à la souris.
Par contre, un timer semble effectivement bloqué parce que le soft cherche à se connecter à un server et que la connexion n'est pas tentée par le timer tant que la boite de dial n'a pas été validée.
On dirait en fait un demi blocage ....
Je pensais obtenir un affichage modal façon système qui bloque toutes actions sans validation ou annulation de la boite de dialogue.

[SergioMaster]

Bonjour,

c'est un peu pour cette raison que j'ai créé ma propre unité d'affichage de message pour un programme utilisant un lecteur codebarre, ce n'est pas la panacée uniquement pour windows pour le moment, mais au moins je suis sûr que c'est bloquant (fenêtre en showmodal).

Ceci étant je n'ai pas testé ta routine et jamais ce TDialogService si j'ai le temps ....

[free07]

On dirait en fait un demi blocage ....
Je pensais obtenir un affichage modal façon système qui bloque toutes actions sans validation ou annulation de la boite de dialogue.

Effectivement, ce n'est pas un fonctionnement modal ou non modal comme pour la VCL.

Avec fmx, il faut utiliser FMX.Dialogs.MessageDlg, tu peux le rendre le dialogue bloquant avec Windows, OSX et ios mais pas avec Android

[Papy214]

Warning: MessageDlg is deprecated. Please use IFMXDialogServiceAsync.MessageDialogAsync or IFMXDialogServiceSync.MessageDialogSync from the FMX.Platform unit.

http://docwiki.embarcadero.com/Libra...ogs.MessageDlg

et sur mon Delphi:

Code :

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

FMX.Dialogs.MessageDlg('', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes], 0);

[dcc32 Avertissement] UnitCommonTypes.pas(647): W1000 Le symbole 'MessageDlg' est déprécié: 'Use FMX.DialogService methods'

[free07]

Ha mince, je l'avais oublié celle-la pour tant je l'appréciais bien ce FMX.Dialogs.MessageDlg

Il faut donc faire comme Sergio, créer sa propre unit, d'ailleurs en faisant une rapide recherche sur le net, je suis tombé sur ce lien que tu as du surement voir.

[Papy214]

Je l'avais vu mais je trouve un peu fort d'être obligé de créer sa propre boite de dialogue. C'est quand même la base.

[Papy214]

Bonjour,

c'est un peu pour cette raison que j'ai créé ma propre unité d'affichage de message pour un programme utilisant un lecteur codebarre, ce n'est pas la panacée uniquement pour windows pour le moment, mais au moins je suis sûr que c'est bloquant (fenêtre en showmodal).

Ceci étant je n'ai pas testé ta routine et jamais ce TDialogService si j'ai le temps ....

Tu utilises le ShowModal pour ta boite de dial ?

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
 
function Confirm(Question: string): Boolean;
var
  R: Boolean;
begin
  FormDial := TFormDial.Create(nil);
  FormDial.LabelText.Text := Question;
  FormDial.ShowModal(
    procedure(ModalResult: TModalResult)
    begin
      case ModalResult of
        mrok    : R := True;
        mrCancel: R := False;
      end;
    end
  );
  Result := R;
  FormDial.Free;
  FormDial := nil;
end;

Avec ça, le showmodal sort directement et passe tout de suite au free.

[Papy214]

Ok, ça sort direct parce que j'ai libéré la form.

Sauf que je me retrouve avec le même comportement qu'avec TDialogService.Mon code principal continue à dérouler malgré l'affichage de ma boite de dial.

[SergioMaster]

re,

et si la forme était propriétaire? FormDial := TFormDial.Create(Self); au lieu de nil

[Papy214]

idem !

Je vais utiliser le ShowModal tout simple sans paramètre et ça ira.
Si on doit se faire ses propres boites de dialogues, j'espère qu'il ne faudra pas un jour construire aussi les boutons, les mémos, etc.