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: