Discussion :

[commodore2]

Pour commencer , boujour a tout le monde !

J'ai programmé en Delphi 6 et maintenant je suis en Delphi 2005 mais il y a des petites choses qui m'échappe .
Par exemple la recuperation de la reponse de l'utilisateur faite par un simple MessageBox
avec cette syntax j'ai un message d'erreur a la ligne If Reponse ..... du genre : [Erreur] WinForm.pas(2014): E2018 Type Record, Object ou Class requis

Quelqu'un a une idée du comment faire pour recuperer cette info ?

Code :

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

1
2
3
4
 
Begin
  Reponse := MessageBox.Show ('Voulez vous supprimer cet utilisateur ?','Suppression Utilisateur', MessageBoxButtons.YesNo ,MessageBoxIcon.Question );
  If Reponse = DialogResult.Yes then .....

[Fxg]

Bonjour,

Et si tu faisais plus simplement

Code :

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

If MessageDlg('Etes-vous sûr de vouloir supprimer cet utilisateur ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes Then .........;

[commodore2]

Je vais essayer cela !

Il y a pas mal de difference entre le dephi6 et le delphi 2005 !

Merci pour l'info

[commodore2]

Fonctionne pas !
Avec cette commande , meme message d'erreur !
[Erreur] WinForm.pas(2013): E2018 Type Record, Object ou Class requis
au niveau de" = DialogResult.Yes"

Code :

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

1
2
 
If MessageBox.Show ('Etes-vous sûr de vouloir supprimer cet utilisateur ?','Suppression Utilisateur', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes  Then...

[Rayek]

Je vais essayer cela !

Il y a pas mal de difference entre le dephi6 et le delphi 2005 !

Merci pour l'info

MessageDlg existe au moins depuis delphi5 (je dis pas avant car j'ai commencé avec delphi5).

Sinon tu viens de mettre le meme code qu'avant tu es sûr de pas avoir tester avec l'ancienne version ?

Aussi refait un tout construire, au cas ou, car autant delphi utilise toujours les dcu de débogages et fou le bronx au niveau d'une compilation simple.

[commodore2]

MessageDlg existe au moins depuis delphi5 (je dis pas avant car j'ai commencé avec delphi5).

Sinon tu viens de mettre le meme code qu'avant tu es sûr de pas avoir tester avec l'ancienne version ?

Aussi refait un tout construire, au cas ou, car autant delphi utilise toujours les dcu de débogages et fou le bronx au niveau d'une compilation simple.

Je sais pour l'existence de MessageBox mais depuis la syntaxe a changé
J'arrive très bien a afficher la boite de dialogue,
L’info est bien dans "REPONSE" mais je dois la comparer avec quoi ?
Car avec "DialogResult.Yes" impossible d'exécuter ! Toujour cette erreur !

[Rayek]

Messagebox

TApplication.MessageBox Méthode

Affiche à l'utilisateur le message spécifié.

Classe
TApplication

Syntaxe


[Delphi] public function MessageBox(const Text: PAnsiChar, const Caption: PAnsiChar, Flags: Integer): Integer;


Description
Utilisez MessageBox pour afficher une boîte de dialogue générique contenant un message et un ou plusieurs boutons. Le paramètre facultatif Caption indique le titre de la boîte de dialogue.

MessageBox encapsule la fonction MessageBox de l'API Windows. L'encapsulation de MessageBox par TApplication fournit automatiquement le paramètre handle de fenêtre nécessaire à la fonction de l'API Windows.

Le paramètre Text spécifie le message qui peut si nécessaire dépasser 255 caractères. Les messages longs sont automatiquement renvoyés à la ligne dans la boîte message.
La valeur du paramètre Caption indique le titre apparaissant dans la barre de titre de la boîte de dialogue. Les titres peuvent faire plus de 255 caractères, mais ils ne sont pas renvoyés à la ligne. Un titre long produit une boîte de dialogue large.

Le paramètre Flags indique les boutons apparaissant dans la boîte message et le comportement (valeurs renvoyées possibles). Le tableau ci-dessous énumère les valeurs possibles. Ces valeurs peuvent se combiner pour donner le résultat souhaité.
Valeur Signification
MB_ABORTRETRYIGNORE
La boîte message contient trois boutons poussoir : Abandonner, Réessayer et Ignorer.

MB_OK
La boîte message contient un bouton poussoir : OK. Il s'agit de la valeur par défaut.

MB_OKCANCEL
La boîte message contient deux boutons poussoir : OK et Annuler.

MB_RETRYCANCEL
La boîte message contient deux boutons poussoir : Réessayer et Annuler.

MB_YESNO
La boîte message contient deux boutons poussoir : Oui et Non.

MB_RETRYCANCEL
La boîte message contient trois boutons poussoir : Oui, Non et Annuler.


MessageBox renvoie 0 s'il n'y a pas assez de mémoire pour créer la boîte message. Sinon, elle renvoie l'une des valeurs suivantes :

Valeur Valeur numérique Signification
Valeur Valeur numérique Signification
IDOK 1 L'utilisateur a choisi le bouton OK.

IDCANCEL 2 L'utilisateur a choisi le bouton Annuler.

IDABORT 3 L'utilisateur a choisi le bouton Abandonner.

IDRETRY 4 L'utilisateur a choisi le bouton Réessayer.

IDIGNORE 5 L'utilisateur a choisi le bouton Ignorer.

IDYES 6 L'utilisateur a choisi le bouton Oui.

IDNO 7 L'utilisateur a choisi le bouton Non.

[commodore2]

Messagebox

Valeur Signification
MB_ABORTRETRYIGNORE
La boîte message contient trois boutons poussoir : Abandonner, Réessayer et Ignorer.

MB_OK
La boîte message contient un bouton poussoir : OK. Il s'agit de la valeur par défaut.

MB_OKCANCEL
La boîte message contient deux boutons poussoir : OK et Annuler.

MB_RETRYCANCEL
La boîte message contient deux boutons poussoir : Réessayer et Annuler.

MB_YESNO
La boîte message contient deux boutons poussoir : Oui et Non.

MB_RETRYCANCEL
La boîte message contient trois boutons poussoir : Oui, Non et Annuler.


MessageBox renvoie 0 s'il n'y a pas assez de mémoire pour créer la boîte message. Sinon, elle renvoie l'une des valeurs suivantes :

Valeur Valeur numérique Signification
Valeur Valeur numérique Signification
IDOK 1 L'utilisateur a choisi le bouton OK.

IDCANCEL 2 L'utilisateur a choisi le bouton Annuler.

IDABORT 3 L'utilisateur a choisi le bouton Abandonner.

IDRETRY 4 L'utilisateur a choisi le bouton Réessayer.

IDIGNORE 5 L'utilisateur a choisi le bouton Ignorer.

IDYES 6 L'utilisateur a choisi le bouton Oui.

IDNO 7 L'utilisateur a choisi le bouton Non.

Cela ne fonctionne plus avec delphi 2005 il me semble !

Maintenant ca fonctionne avec MessageBoxButtons.YesNo, MessageBoxIcon.Question etc ....

Je me trompe ou non ?