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; |
jaenicke