Ich brauch eine Mischung zwischen Show und ShowModal

[hoika]

Hallo

Delphi-Quellcode:

function TForm_PEP__Main.LoadData: Boolean;
var
  FrmStatus  : TForm_Status;
  WindowList : Pointer;
begin
  Result:= False;

  try
    FrmStatus:= CreateStatusForm;

    try
     { to make form "semimodal" }
      WindowList:= DisableTaskWindows(frmStatus.Handle);
      try
        // Formular anzeigen
        FrmStatus.Show;

        // Schleifenverarbeitung
        Repeat
         { 6957, "Daten werden geladen"
           6958, "Bitte haben Sie einen Moment Geduld" }
          FrmStatus.iCaption := 6957;
          FrmStatus.iInfo    := 6958;

          // Nachrichtenverarbeitung zulassen
          Application.ProcessMessages;
       // hier passiert das wichtige

          Result:= InternalLoad(FrmStatus);

          break;
        // bis Verarbeitung fertig oder Benutzerabbruch
        until False;
      finally
        // Semi-Modalität aufheben
        EnableTaskWindows(WindowList);
        // Fenster verstecken
        FrmStatus.Hide;
      end;
    finally
      // Fenster wieder freigeben
      FrmStatus.Free;
    end;
  except
  end;
end;  { LoadData }

Heiko