ShowMessage

[tolleware]

Hallo,
ich möchte einen Info-Text ausgeben und benutze dazu "ShowMessage(textmeldung)", wobei "textmeldung" vom Type String ist, und mit +sLineBreak formatiert ist.
D.h. die Zeilenende lege ich mit sLineBreak fest : textmeldung:='lange textzeile'+sLineBreak+'noch eine lange textzeile'+sLineBreak+'eine weitere lange textzeile'+sLineBreak;
Nun ist eine Textzeile breiter als 80 Zeichen und die Meldung wird automatisch umgebrochen.
Wie bekomme ich eine breitere Textausgabe hin
Oder was für Alternativen habe ich ?
Gruß
Uli

[af0815]

Erstmal ist das Problem, das das Widgetset/Betriebssystem spezifisch ist, ob und wo umgebrochen wird.

Was man machen kann, ist sich einen solchen Dialog selbst zu erstellen, dann hast du alles in der Hand. Ansonsten fällt mir einmal nichts dazu ein.

[tolleware]

Hallo,
Danke für die Antwort.
Selber einen Dialog zu machen, ist mir aber zu aufwändig.
Gibt es sowas nicht schon fertig irgendwo (möglichst umsonst) ?

Bei der Gelegenheit:
Wie muss ich es machen, dass der Dialog sich automatisch schließt ?
Beispiel:
Programm startet
Meldungsbox "Initialisierung läuft, bitte warten..."
Wenn Prog.Init. fertig ist, soll sich die Messagebox automatisch schließen

Gruß
Uli

[kralle]

Moin,

Gibt es sowas nicht schon fertig irgendwo (möglichst umsonst) ?

Du könntest eine TMemo nehmen und den Text dort reinschreiben (Immer so viele Zeichen pro Zeile wie Du möchtest.
Dann schaltetest Du die Editierbarkeit ab und spielst noch ein wenig mit den Eigenschaften des Rahmen.

Bei der Gelegenheit:
Wie muss ich es machen, dass der Dialog sich automatisch schließt ?
Beispiel:
Programm startet
Meldungsbox "Initialisierung läuft, bitte warten..."
Wenn Prog.Init. fertig ist, soll sich die Messagebox automatisch schließen

Code: Alles auswählen

TMemo1.Close;

Gruß Kralle

[wp_xyz]

Nimm den TaskDialog. Schreibe den Text in die gleichnamige Property und ändere Width vom Defaultwert 0 auf einen Wert entsprechend deiner Stringlänge (in Pixeln). Darüber bietet TTaskDialog eine Vielzahl von Möglichkeiten (https://specials.rejbrand.se/TTaskDialog/):

Code: Alles auswählen

procedure MyShowMessage(AMsg: String; AWidth: Integer = 0; ACaption: String = ''; ATitle: String = '');
var
  T: TTaskdialog;
begin
  T := TTaskDialog.Create(nil);
  try
    T.Text := AMsg;
    T.Width := AWidth;
    T.Caption := ACaption;
    T.Title := ATitle;
    T.Execute;
  finally
    T.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  msg: string =
    'Das ist eine sehr, sehr, sehr, sehr, sehr, sehr, sehr, sehr, sehr, sehr, sehr lange Meldung.' + LineEnding +
    'Und noch eine Zeile.' + Lineending +
    'Und noch eine...';
begin
  MyShowMessage(msg, 600, 'Meldung', 'Meldungstext');
  MyShowMessage(msg);
end;