Hallo Jsch,
als schnelle Lösung reicht vielleicht das:
Delphi-Quellcode:
// uses Forms, Dialogs
function CreateMessageWindow (const aMsg: string): TForm;
begin
Result := CreateMessageDialog(aMsg, mtInformation, []);
Result.BorderIcons := [];
Result.Height := 88;
Result.FormStyle := fsStayOnTop;
Result.Show;
Application.ProcessMessages;
end;
procedure Test;
var
Dlg : TForm;
begin
// Fenster erzeugen und anzeigen
Dlg := CreateMessageWindow('Warte auf Schnittstelle...');
try
// Ereignis abwarten (hier stellvertretend ein Sleep)
Sleep (5000);
finally
// Fenster schließen und freigeben
Dlg.Release;
end;
end;
Gruß Hawkeye