Discussion :

[the big ben 5]

Bonjour,

Un petite erreur de syntaxe...

Comment faire pour utiliser les mrYes,... comme réponse à une MessageDlg?

Code :

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

1
2
if(MessageDlg('aaa', mtConfirmation, [mbYes, mbNo], 0) = [mrYes]) then
    MessageDlg('Yes', mtWarning, [mbOK], 0);

Il n'accepte pas de compiler et je suis donc obligé de faire

Code :

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

1
2
if(MessageDlg('aaa', mtConfirmation, [mbYes, mbNo], 0) = 6) then
    MessageDlg('Yes', mtWarning, [mbOK], 0);

Et j'ai déja remarqué le meme probleme avec d'autres constantes...

PS: Je suis sur Delphi 2006

D'avance merci


Ben

[Cl@udius]

Salut,

Code :

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

1
2
3
 
if(MessageDlg('aaa', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
    MessageDlg('Yes', mtWarning, [mbOK], 0);

La réponse renvoyée par MessageDlg n'est un ensemble mais un simple integer.

@+

[the big ben 5]

Oui mais il est normalement prévu d'utiliser des constantes plutut que l'integer pour plus de lisibilité du code me semble t il

[Cl@udius]

C'est exactement ce que je viens d'écrire:

Code :

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

1
2
 
   if MessageDlg(...) = mrYes then ...

@+

[the big ben 5]

Ok c'est ce que j'écrit également me semble t il mais ca ne compile pas!!!
Alors pourquoi?

[elreybubu]

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
 
    sure:=false;
   with CreateMessageDialog('Etes vous sur de vouloir supprimer ce flux?', mtWarning,[mbYes,mbNo]) do
        try
        case ShowModal of
                mrYes:   sure:=true;
                else
                begin
                        sure:=false;
                        Free;
                end;
        end;
        except
                free;
        end;
    if sure then

J'utilise toujours mes dialogues de confirmation de cette facon
En esperant que ca puisse t'inspirer

[the big ben 5]

Et en plus de lignes?

[Cl@udius]

Non, relis ton code: ce n'est pas ce que tu as écrit.

ton code:

Code :

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

1
2
 
  if MessageDlg(...) = [mrYes] then ...

[mrYes] est un ensemble.

Mon code

Code :

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

1
2
 
  if MessageDlg(...) = mrYes then ...

mrYes une constante integer (de valeur 6).

C'est pour cela que ton compilo n'est pas d'accord.
@+

[the big ben 5]

oui effectivement tu as raison mais j'avais déja essayé également de faire

Code :

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

if MessageDlg(...) = mrYes then ...

[elreybubu]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   with MessageDlg('aaa', mtConfirmation, [mbYes, mbNo], 0)do
        try
        case ShowModal of
                mrYes:   MessageDlg('Yes', mtWarning, [mbOK], 0);
                else
                begin                        
                        Free;
                end;
        end;
        except
                free;
        end;

Voila dans ton cas

[the big ben 5]

oui mais bon alors je préfere encore ma solution de

Code :

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

if(MessageDlg('aaa', mtConfirmation, [mbYes, mbNo], 0) = 6) then

[Cl@udius]

oui effectivement tu as raison mais j'avais déja essayé également de faire

Code :

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

if MessageDlg(...) = mrYes then ...

Et bien dans ce cas tu ne devrais pas avoir d'erreur de compilation.
Si ?

[Rayek]

Es tu sûr d'avoir l'unité Controls dans les uses de ton unité ?

[the big ben 5]

Non je ne l'avais pas controls... Et c'était ca!!!

Un super grand merci