Der Thread selbst gehört ja zu gar keinem Tab. In meinem Beispiel würdest Du nun 3 Methoden anlegen (geht auch mit einer, aber wir machen es erst einmal einfach) und diese dem Event des jeweiligen Threads zuweisen.

markieren

Delphi-Quellcode:

DownloadThread := TDownloadThread.Create(true);
DownloadThread.DownloadEvent := ProgressMethod;

Wobei ProgressMethod dann eine Methode vom Typ TDownloadEvent ist, also die Parameter Sender, CurrentSize und TotalSize besitzt.

markieren

Delphi-Quellcode:

procedure TTabForm.ProgressMethod(Sender: TObject; CurrentSize, TotalSize: int64);
begin
  (* Aus Jux selbst berechnet *)
  ProgressBarThread1.Position := Round(CurrentSize / TotalSize * 100);
end;

Hallo nochmal,
erneut meinen herzlichen Dank an dich für deinen hilfreichen Beitrag.

Was ich jetzt wieder einmal nicht weiß, wie kann ich die richtige Progreessbar ansprechen? Du schreibst "ProgressBarThread1". Die Progressbar lasse ich ja dynamisch erzeugen. Das ist ja genau der Punkt den ich Anfangs meinte. Ich hatte überlegt namen zu übergeben und findcomponent zu nutzen, aber das kann wohl nicht im Sinne des Erfinders sein.

Im übrigen erhalte ich die Fehlermeldung "ungültige GLeitkommaoperation" an der Stelle deiner Jux-Berechnung Aber das könnte natürlich auch daran liegen das ich die falsche progressbar anspreche. Ich habe nämlich einfach "probar.position" genommen.

Gruß
Chris

Du brauchst keinen Namen für die Progressbar, sondern kannst ja auch die Instanz selbst ansprechen. Die musst Du Dir halt irgendwo merken, am Besten verknüpfst Du sie dann gleich mit der Thread-Instanz (wie, das überlasse ich Dir). Der Fehler dürfte übrigens daher rühren, dass TotalSize nahe gegen 0 geht oder gar 0 ist, das gibt dann natürlich Probleme bei der Division. Aber darum ging es ja auch gar nicht

okay... ich komme mir langsam wirklich hilflos vor. Du hast mir jetzt schon ordentlich weitergeholfen aber der Funke will nicht gänzlich überspringen.

Könntest du mir nicht vielleicht ein kleines -meinetwegen auch allgemeines- Beispiel geben wie ich dies anstellen kann?

Mir gehts jetzt weniger konkret um die Progressbar das muss ich selbst hinbekommen. Vielmehr darum wie der Thread eben die Komponenten von der Page ansteuern kann. Das was nunmal auch meine Ausgangsfrage war.

Mit der Prozedur habe ich jetzt schonmal ein gutes Werkzeug zur Hand aber ich weiß nicht wie es genau anwenden kann.

Also nochmal ganz konkret gefragt:
1) Wie kann ich den Sheet an sich ansprechen der zur Prozedur gehört und diesen z.B. schließen?
(Komponente.pages[?] as TTabSheetEx).free ?

2) Wie kann ich Komponenten auf dem Sheet ansteuern z.B die Progressbar?

Gruß
Chris

Da gibt es mehrere Möglichkeiten. Die Einfachste wäre, dem Thread eine Property vom Typ TProgressBar zu verpassen. Dann könnte man sich auch das Event sparen, da dann der Thread direkt auf seine Property zurückgreifen und sie synchronisiert aktualisieren könnte. Der Nachteil ist die starke Bindung, denn wenn man später einmal die ProgressBar gegen z.B. eine TGauge austauschen möchte, muss man an mehreren Stellen ändern. Um also flexibel zu bleiben, lassen wir unseren Event so wie er ist. Nun müssen wir noch irgendwie Thread und das zu aktualisierende Control miteinander verknüpfen. Das ginge beispielsweise mit einem Record und einer Liste.

markieren

Delphi-Quellcode:

type
  PVerknuepfung = ^TVerknuepfung;
  TVerknuepfung = record
    Thread: TDownloadThread;
    ProgressBar: TProgressBar;
  end;

Wenn wir nun noch eine TList anlegen, können wir dort Elemente vom Typ PVerknuepfung reinpacken.

zusammenfalten · markieren

Delphi-Quellcode:

var
  Verknuepfung: PVerknuepfung;
  PB: TProgressBar;
  DT: TDownloadThread;
begin
  PB := TProgressBar.Create(nil);
  PB.Parent := ...
  //usw.
  DT := TDownloadThread.Create;
  //usw.
  New(Verknuepfung);
  Verknuepfung^.Thread := DT;
  Verknuepfung^.ProgressBar := PB;
  Liste.Add(Verknuepfung);
end;

Wenn nun einer der Threads das Event feuert, könnte man die Liste durchlaufen und schauen, in welchem Element er drinsteht (er übergibt sich ja selbst im Sender-Parameter).

markieren

Delphi-Quellcode:

Index := 0;
PB := nil;
while (Index < Liste.Count) and not Assigned(PB) do
  begin
    if TVerknuepfung(Liste[Index]^).Thread = Sender then
      PB := TVerknuepfung(Liste[Index]^).ProgressBar;
    inc(Index);
  end;

So, nun haben wir die zugehörige ProgressBar ermittelt (oder auch nicht, dann ist sie nil) und können sie aktualisieren.

markieren

Delphi-Quellcode:

if Assigned(PB) then
  PB.Position := ErrechneterWert;

Das mag jetzt nicht die allereleganteste Methode sein, sie sollte aber eigentlich funktionieren (ohne Gewähr, da aus dem Kopf getippt) und halbwegs verständlich sein.

Hallo Detlef,
vielen Dank, du hast mir mit deinen Beiträgen sehr geholfen

Gruß
Chris

Das freut mich