Discussion :

[sematimo]

Bonjour à tous

Question: pourquoi le texte de mon MessageDialog se retrouve affiché sur 2 lignes?

Le code que j'utilise:

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
   function tform1.affichage():boolean;
var
  f : TForm;
   p:tpoint;
   text1:string;
begin
               text1:='Le 23/02/2024 à 19:25'+#13+#10+#13+#10;
     p.x:=10;
  p.y:=10;
    f := Dialogs.CreateMessageDialog(text1,Dialogs.mtcustom,[mbYes, mbIgnore]);
try
 f.Width:=400;  
              f.Position:=poDesigned;
              f.Caption := 'Rappel évènement...';
              f.Color := clBlue; //.. Couleur de la Form
              f.Font.Color := clAqua; //.. Couleur de la fonte
              f.Font.Size := 10; // Taille de la police de caractères
              f.left:=p.x;
              f.Top:=p.y;
              f.FormStyle := fsSystemStayOnTop;  //toujours au 1er plan
    ModalResult := f.showmodal; 
    If ModalResult = mryes Then showmessage('Réponse:Yes');   //juste pour test    
                   finally
             f.Free;
                 end;   
end;

Le résultat:

[M.Dlb]

Bonjour,

Quel est l'intérêt de rajouter "#13+#10+#13+#10" à la fin de la chaîne texte ?
As-tu essayé sans ?

[sematimo]

bonjour
les sauts de ligne sont là pour avoir plus d'espace entre le texte et les boutons, sans les sauts de ligne, j'ai le même résultat.

[Guesset]

Bonjour,

Que se passe-t-il si "à" est remplacé par "a" ?

Salutations

[sematimo]

Bonjour
si je remplace à par a et que je supprime le retour à la ligne, le texte est coupé après le a...

[Guesset]

Bonjour,

En fait c'est la taille de la fonte que le perturbe. A 9 c'est OK.

Le CreateMessageDialog est là pour simplifier l'affichage d'un dialogue standard. Il fixe la plupart des paramètres et toute modification prend le risque d'être en contradiction.

Si on veux une fenêtre plus personnelle, je crois que cela passe par une Tform classique définie de A à Z.

Par exemple, le StayOnTop est sans effet.

On peut quand même faire quelques ajustements.

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
function TMainForm.MsgDlg: Boolean;
var
   f     : TForm;
begin
   Result := False;;
   f  := Dialogs.CreateMessageDialog('Rappel événement...', 'Le 23/02/2024 à 19:25',
      Dialogs.mtcustom,[mbYes, mbIgnore]);
   try
      f.Color      := $80FFFF;                   //.. Couleur de la Form
      f.Font.Color := clNavy;                    //.. Couleur de la fonte
      f.Font.Style := [fsBold];
      Result       := f.ShowModal = mryes;
   finally
      f.Free;
   end;
end;

Salutations

[sematimo]

Bonjour

j'ai résolu le problème avec cette unité 'thdialogs.pas' trouvée ici: https://www.developpez.net/forums/d1...on-messagedlg/

[Jipété]

Pour information, tout se passe très bien sous Linux :



Pour une fois !

Les seules modifs sont l'ajout de mots à la variable text1 et le passage de la largeur de la form de 400 à 500.

PS : tu noteras que l'association de la couleur clAcqua pour du texte sur des boutons clWhite ça n'est vraiment pas terrible : ça tue les yeux !