Guten Abend!
Gibt es eine Möglichkeit, einen MessageDialog-Text zu ändern, NACHDEM die Nachricht bereits erzeugt wurde?
Bisher habe ich folgendes:
Code:
function ErzeugeNachrichtenfenster(const aMsg: string): TForm;
begin
Result := CreateMessageDialog(aMsg, mtInformation, []);
Result.BorderIcons := [];
Result.Height := 80;
Result.FormStyle := fsStayOnTop;
Result.Show;
Application.ProcessMessages;
end;
procedure TFoMain.FormShow(Sender: TObject);
var
Dlg : TForm;
begin
// Warte-Fenster anzeigen
Dlg := ErzeugeNachrichtenfenster('Lade Personendaten vom Server...');
try
{
(Hier werden verschiedene Dateien herunter geladen.)
-> Ich möchte darum dem Nutzer mitteilen, welche das sind
und würde dazu gern den Text der Nachricht merhfach ändern.
}
finally
// Warte-Fenster schließen und freigeben
Dlg.Release;
end;
Wie oben zu sehen wird eine Message erzeugt und ausgegeben. Ich möchte während der Laufzeit dann den Text dieser Nachricht ändern. Ist das möglich oder muss ich mir selbst ein Nachrichtenfenster über ein eigenes Formular basteln?
Gruß,
Thorsten