Wait dialog oder sanduhr fuer Android/IOS

[Thomas Horstmann]

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 ************************************************************
// *****************************************************************************