"Bitte warten Fenster" anzeigen - andere Eingaben blockieren

[shmia]

Du kannst mal folgendes probieren:

Delphi-Quellcode:

FWindowList:Pointer;

procedure TImportForm.ShowSemiModal;
begin
   // Formular semi-modal machen
   FWindowList:= DisableTaskWindows(self.Handle);
   Show;
end;

procedure TImportForm.FormHide(Sender: TObject);
begin
   if Assigned(FWindowList) then
   begin
      // Semi-Modalität aufheben
      EnableTaskWindows(FWindowList);
      FWindowList := nil;
   end;
end;