Discussion :

[P.G]

Bonjour à tous,

Y a t'il un moyen de personnaliser l'aspect de la fenêtre showmessage pour l'harmoniser avec l'application. Couleur de fond, taille de la police etc ..

Merci

P.G

[mick605]

Salut

A mon avis, ce n'est pas possible simplement. Ca sera surement plus facile de créer toi même ta fenetre, en utilisant ShowModal.

Bonne chance

[Caribensila]

Salut,

Le plus simple est de créer ta propre Form.

Mais si c'est pour afficher des messages d'erreur, je pense qu'il vaut mieux en laisser la responsabilité au système et à sa propre harmonie...

[BuzzLeclaire]

Bonjour à tous,

Y a t'il un moyen de personnaliser l'aspect de la fenêtre showmessage pour l'harmoniser avec l'application. Couleur de fond, taille de la police etc ..

Merci

P.G

Pour afficher des messages interne ok, mais pour afficher des messages à un utilisateur, il est préférable d'utilisé
MEssageDlg(..);
qui s'harmonise avec le système d'exploitation.

bye

[MCoder]

Je ne pense pas qu'on puisse manipuler showMessage autrement qu'en lui fornissant une chaine de caractères en argument. Par contre comme BuzzLeclaire le dit, il est possible de personnaliser MessageDlg.
Voici un bout de code pour changer directement l'orientation papier de l'objet TPrinter à partir d'une boite MessageDlg personnalisée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
var f : TForm
begin
     With PrintDialog1, Printer Do
          begin
              //.. Création d'une boite de dialogue personnalisée
              f := Dialogs.CreateMessageDialog('ORIENTATION  PAPIER :'#13+
                            '-----------------------------'#13#13+
                            '     [ OUI ]  pour l''orientation "PORTRAIT" .'#13#13+
                            '     [ NON ]  pour l''orientation "PAYSAGE" .'#13#13+
                            '     [ ANNULER ]  pour "Annuler" l''impression.'+#13+' ',
                             Dialogs.mtConfirmation, Dialogs.mbYesNoCancel);//.. Logo Confirmation et les boutons de la boite
 
              //.. Titre de la boite de dialogue personnalisée
              f.Caption := 'Voulez-vous imprimer avec orientation PORTRAIT ? ...';
              f.Color := clBlue; //.. Couleur de la Form
              f.Font.Color := clWhite; //.. Couleur de la fonte
              f.Font.Size := 10; // Taille de la police de caractères
 
              //.. Utiliser ModalResult après création dynamique d'une fiche pour
              ModalResult := f.ShowModal; //.. Récupérer de la valeur du bouton cliqué.
 
              If ModalResult = mrCancel Then //.. ou f.ModalResult
                    EXIT;
 
              If ModalResult = mrYes Then
                   Printer.Orientation := poPortrait;  //.. Orientat. portrait
              else
                   Printer.Orientation := poLandscape; //.. Orientation paysage
 
          end
end