A voir également:
- Demande de confirmation
- Delphi messagedlg - Meilleures réponses
- Delphi 7 messagedlg - Meilleures réponses
- ASP / ASP.NET : Confirmer la suppression lors d'un click sur un bouton commandname="delete&quo - Guide
- Confirmation avnt suppression ✓ - Forum - Javascript / DHTML
- Comment supprimer la confirmation de suppression dans un docmd.runsql(delete ✓ - Forum - Visual Basic
- Message confirmation suppression avec ButtonColumn ✓ - Forum - C# / .NET
- Confirm box pour suppression avec masterpage ✓ - Forum - ASP.NET
2 réponses
cs_emeraudes
- Messages postés
- 63
- Date d'inscription
- dimanche 2 mai 2004
- Statut
- Membre
- Dernière intervention
- 8 avril 2005
c'est bon j'ai trouvé c'est
<hr style="width: 100%; height: 2px;">
code :
if MessageDlg('ATTENTION vous allez suprimer un produit,
Etes-vous sur de vouloir le suprimer?',mtWarning, [mbYes, mbNo],
0)=mrYes then
begin
...
end
else
.....
<hr style="width: 100%; height: 2px;">pour ceux qui voudrait le code
bonne programmation
>>>> "Le génie n'existe pas sans un grain de folie"
<hr style="width: 100%; height: 2px;">
code :
if MessageDlg('ATTENTION vous allez suprimer un produit,
Etes-vous sur de vouloir le suprimer?',mtWarning, [mbYes, mbNo],
0)=mrYes then
begin
...
end
else
.....
<hr style="width: 100%; height: 2px;">pour ceux qui voudrait le code
bonne programmation
>>>> "Le génie n'existe pas sans un grain de folie"
ni69
- Messages postés
- 1418
- Date d'inscription
- samedi 12 juin 2004
- Statut
- Membre
- Dernière intervention
- 5 juillet 2010
tu peux faire plus simple sans devoir gérer des
if
begin
end
else
begin
end
en faisant tout simplement comme ceci :
if MessageBoxA(0,Pchar('Vous êtes sur le point de supprimer un produit.'+#13+'Etes-vous sur de vouloir continuer ?'),Pchar('Attention'),MB_YESNO + MB_ICONEXCLAMATION + 0) = 7 then exit;
Rq :
- 7 est l'identificateur associé au bouton "Non"
- Exit permet de sortir d'une procedure sans exécuter le code qui suit, donc dans ce cas, il est plus pratique de l'utiliser
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
if
begin
end
else
begin
end
en faisant tout simplement comme ceci :
if MessageBoxA(0,Pchar('Vous êtes sur le point de supprimer un produit.'+#13+'Etes-vous sur de vouloir continuer ?'),Pchar('Attention'),MB_YESNO + MB_ICONEXCLAMATION + 0) = 7 then exit;
Rq :
- 7 est l'identificateur associé au bouton "Non"
- Exit permet de sortir d'une procedure sans exécuter le code qui suit, donc dans ce cas, il est plus pratique de l'utiliser
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !