Einzelnen Beitrag anzeigen

BBoy

Registriert seit: 17. Jan 2007
418 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Wie das ende der Suche von jvsearchfiles erkennen?

  Alt 15. Nov 2007, 17:15
ICh lasse mit jvsearchfiles in einem bestimmten Ornder nach ZIP dateien suchen.
Immer wenn eines gefunden wird, wird daraus die file_id.diz ausgelesen und in eine liste geschrieben.

In der zeit wo die suche läuft habe ich 2 buttons disabled die wieder enabled werden müssen wenn die suche abgeschlossen ist.
Dachte mir ich mache das so:
Delphi-Quellcode:
procedure TForm1.JvSearchFiles1Progress(Sender: TObject);
begin
   if jvsearchfiles1.Searching = false then begin
      button1.Enabled := True;
      button2.Enabled := False;
      button3.Enabled := True;
      label3.Caption := inttostr(JvSearchFiles1.TotalFiles);
   end;
end;
Aber jvsearchfiles1.Searching wird scheinbar nur aufgerufen wenn die suche mit abort beendet wurde. Irgendwie fehlt da eine OnComplete eigenschaft.

Weis jemand wie ich es hinbekomme die buttons zu enablen wenn die suche abgeschlossen ist? ODer kennt jemand eine alternative komponente die ich verwenden kann?
  Mit Zitat antworten Zitat