Ich öffnen eine neue Form, in der ein Sanduhr-Image liegt. Das hat auch den Vorteil, das die Tasten und Toolbars des darunter liegenden Fensters nicht aktiv sind.
Delphi-Quellcode:
...
gWait : TWaitForm ;
...
// *** Start BeginWait *********************************************************
// *****************************************************************************
procedure BeginWait ;
var
iAppService : IFMXApplicationService ;
begin
{ Fehler: Bereits vorhanden }
if gWait <> nil then Exit ;
{ Zur Sicherheit mit try }
try
{ Anlegen }
gWait := TWaitForm.Create(Application) ;
{ Anzeigen }
gWait.Visible := True ;
gWait.BringToFront ;
{ Meldungen verarbeiten !!! Sonst wird das Fenster nicht angezeigt !!! }
if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationService,iAppService) then
iAppService.HandleMessage ;
except
end ; // try
end ;
// *** Ende BeginWait **********************************************************
// *****************************************************************************
// *** Start EndWait ***********************************************************
// *****************************************************************************
procedure EndWait ;
begin
{ Fehler: Nicht göffnet }
if gWait = nil then Exit ;
{ Zur Sicherheit mit try }
try
{ Löschen }
gWait.DisposeOf ;
except
end ; // try
{ Zurücksetzen }
gWait := nil ;
end ;
// *** Ende EndWait ************************************************************
// *****************************************************************************