salut tous je cherche mais ne trouve pas la solution pour afficher mon caption dans un MessageBox
Nom.caption
merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure TSupPaiement.BitBtn1Click(Sender: TObject); var rep : integer; begin rep:= MessageBox(Handle,'Etes-vous sûr de vouloir supprimer cet adhérent ?', 'Avertissement ',MB_OKCANCEL or MB_ICONSTOP ) ; if (rep =IDOK) then// test si réponse OK Table1.Delete; // Suppression de l'enregistrement; end;
Partager