Discussion :

[tarmo57]

salut tous je cherche mais ne trouve pas la solution pour afficher mon caption dans un MessageBox
Nom.caption

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;

merci de votre aide

[kroma23]

Re
a mon avis vos mieux utulisé le messagedlg
voila la syntaxe

Code :

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

1
2
3
 
if messagedlg('Etes vous sur de vouliir supprimé cette enregistrement',mtconfirmation,[mbyes,mbno],0)=mryes then
table1.delete;

a+

[tarmo57]

Re
a mon avis vos mieux utulisé le messagedlg
voila la syntaxe

Code :

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

1
2
3
 
if messagedlg('Etes vous sur de vouliir supprimé cette enregistrement',mtconfirmation,[mbyes,mbno],0)=mryes then
table1.delete;

a+

oui surement mais mon probleme est que je voulais ajouter dans mon message le nom de mon nom.caption
ex: Etes vous sur de vouliir supprimé l' enregistrement de monsieur dupon

[evarisnea]

salut tous je cherche mais ne trouve pas la solution pour afficher mon caption dans un MessageBox
Nom.caption

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;

merci de votre aide

tu peux utiliser la fonction Format pour cet effet. n'hésite pas à user de pour plus d'informations.

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,Format('Etes-vous sûr de vouloir supprimer l''adhérent %s ?',[Nom.Caption]),
 'Avertissement ',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK) then// test si réponse OK
   Table1.Delete; // Suppression de l'enregistrement;
 end;

[tarmo57]

mais j'ai une erreur
type incompatible string et Pansichar
j'ai oublier un truc ?

[evarisnea]

mais j'ai une erreur
type incompatible string et Pansichar
j'ai oublier un truc ?

un oubli de cast de ma part :

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,PAnsiChar(Format('Etes-vous sûr de vouloir supprimer l''adhérent %s ?',[Nom.Caption])),
 'Avertissement ',MB_OKCANCEL or MB_ICONSTOP ) ;
 if (rep =IDOK) then// test si réponse OK
   Table1.Delete; // Suppression de l'enregistrement;
 end;

[tarmo57]

vraiment super grand merci

[evarisnea]

vraiment super grand merci