Hallo galagher,
eine direkte Antwort auf Deine Frage nach dem Font habe ich nicht. Hatte jedoch früher im Forum einmal die Frage gestellt wie ich meinen Text im Meldefenster besser umbrechen kann, um Breite/Höhe des Fensters festzulegen. Verwendete nämlich auch MessageDlg zur Anzeige kleiner Hilfetexte. (Die Original-Antwort" wurde später gelöscht).
Hier die Procedur. Da es sich bei temp um eine TForm handelt, müsste sich auch Farbe und Font einbauen lassen.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
| procedure ShowSizedDlg(ACaption, AMsg: string; APos: TPoint; AWidth, AHeight: Integer; ADlgType: TMsgDlgType; AButton: TMsgDlgButtons); var temp: TForm; begin temp := CreateMessageDialog(AMsg, ADlgType, AButton); try temp.Caption := ACaption; temp.Left := APos.X; temp.Top := APos.Y; temp.Width := AWidth; temp.Height := AHeight; temp.ShowModal; finally temp.Free; end; end; |
Hier die Anwendung:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| procedure TForm1.HilfezuEmKSortierung1Click(Sender: TObject); const Breite=700; Hoehe= 600; top = 200; var left : integer; begin left:=(Form1.Width - Breite) div 2; ShowSizedDlg('HILFE zu EMK - SORTIERUNG', cEmkText6 , Point(left, top), Breite, Hoehe, mtInformation, [mbOK]); end; |