Mit der TJvEdit-Komponente aus der
JVCL geht das.
| Zitat: |
| Nee, das war kürzer. |
Dann mach eine Funktion daraus und es ist kürzer.
| Zitat: |
| Nur son Zusatz am String, irgendwas mit ^C oder sowas. |
Nein, so ein Steuerzeichen gibt es nicht, außer man produziert eigene Steuerzeichen.
Delphi-Quelltext
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:
| function MessageDlgEx(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
var
S: string;
Centered: Boolean;
begin
S := Msg;
if (S <> '') and (S[1] = #1) then
begin
Delete(S, 1, 1); Centered := True;
end
else
Centered := False;
with CreateMessageDialog(S, DlgType, Buttons) do
try
HelpContext := HelpCtx;
if Centered then
TLabel(FindComponent('Message')).Alignment := taCenter;
Result := ShowModal;
finally
Free;
end;
end;
MessageDlgEx(#1'Dies ist ein zentierter'#10'Text', mtInformation, [mbOK], 0); |
Noch ein Wort zu deinem #13: Das ist eine DOS-Angewohnheit. Jedoch entspricht das #13 keinem Zeilenumbruch, sondern einem Wagenrücklauf, womit das Zeichen #10 in allen Fällen verwendet werden sollte, da dir ein Linux System (Kylix) bei #13 etwas hustet aber keine Zeienumbruch macht. Dasselbe gilt auch für CLX Anwendungen. Diese können nichts mit #13 anfangen und Schlucken es an der einen Stelle und geben es an einer anderen Stelle als ein undefiniertes Symbol auf dem Bildschirm aus.
