Delphi 7 - MSSQL - Progressbar

[hoika]

Hallo,

ich habe dafür ein Form, welches von anderen Form benutzt werden kann.
Das Form hat ein paar public properties (sCaption, sInfo, ProgressBar)


Heiko

Delphi-Quellcode:

function TForm_Bla.LoadData(
  bReloadAllData: Boolean): 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
         { 1, "Daten werden geladen"
           2, "Bitte haben Sie einen Moment Geduld" }
          FrmStatus.iCaption := 1;
          FrmStatus.iInfo    := 2;

          // Nachrichtenverarbeitung zulassen
          Application.ProcessMessages;

          Result:= InternalLoad(FrmStatus, bReloadAllData);

          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 }