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 !