Discussion :

[fveto]

Bonjour à tous,

Je n'ai pas trouvé la solution pour changer la taille de caractères de ShowMessage, donc, l'autre possibilité pour c'est d'afficher le message sur un formulaire avec même boutons ...

Je bloque le formulaire du message :

Code :

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

1
2
 
AMessage.FormStyle := fsStayOnTop;

Ma question est de savoir, comment faire pour suspendre l'exécution dans la procédure qui appelle le formulaire du message pour la reprendre une fois la réponse est donnée (comme showMessage) ?

Merci à tous.

[gbegreg]

Bonjour,

Depuis la form principale (celle depuis laquelle tu comptes faire afficher ton remplaçant du MessageBox), voici un exemple que tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
[...]
uses uMessageBox;
[..]
 
procedure fPrincipale.MonTraitement;
begin 
   [...]
   monMessageBox.showmodal;
   [...]
end;

[foetus]

Sous Windows (bibliothèque win32/ VCL) il y a deux types de boîtes de dialogue : les modal et les modeless (<- je ne connais pas les traductions françaises )

Il faut se documenter: un premier lien Using Dialog Boxes

Avec la VCL ce sont les 2 méthodes TCustomForm.ShowModal et TCustomForm.Show


Édit: Barbecued by gbegreg

[fveto]

Bonjour à tous,

Merci Gbegreg, ça fonctionne parfait !!!