Hmmmm...nun ja ich hab grad mal geknobbelt
Stimmt nicht mehr:
Das Lustige ist bei mir funkts nur bei der 2 Seite nicht da wird aus der Zeit dummerweise 0%
Wenn ich in MouseLeave die Prozent Procedure auskomentiere gehts...
Aber dummerweise steht ja nichts in der Prozent Procedure ja nichts mit Zeit ändern...
Wenn ich aber in Prozent Procedure als Test Zeit auf deinen "Reset" Wert setez gehts auch wieder....
Sehr merkwürdig
Das komsiche ist ich hab keine Ahnung warum
Funkten tuts auch wenn du MouseMove bei jeder Komponente machst...wenn dan aber auf den Captionbereich des Fensters gehts gehts wieder net mehr....
Also ich bin echt überfordert
Vll. konnte ich dir auch ein bischen helfen wo der Fehler liegt...
Tut mir leid echt wollte helfen bin es mehre mal durchgegangen, eigentlich darf er das garnet ändern
EDIT:
Ich hab dein Fehler gefunden
Delphi-Quellcode:
Procedure TForm1.Prozent(Maximum: Int64);
Var
I,J : Integer;
Begin
If (Maximum=0) Or (Threads>0) Then Exit;
For I:=00 To 07 Do
Begin
If Benutzer.Count>(Anzeige + I) Then
Begin
J:=100 * Laenge[Anzeige + I] Div Maximum;
If J>999 Then
Prozente[I].Caption:='>999%' // du hattest hier Anzeige + 1 so und dein Array von Labels ändert sich doch net xD bei +10 hattest du 11 das konnte er net finden und hatt anscheinend das label von der Zeit genohmen
Else
Prozente[I].Caption:=FormatFloat('0,',J)+'%'; //hier genauso
End;
End;
End;
Ich hoffe es war diese Fehler..
Mir ist noch aufgefallen, dass du keine 10 Labels mit der Größe deines Fenster zur Zeit hinbekommst..zumindest bei meiner Auflösung..Bei mir waren es nur 8, das heist du musst deine Berechnungen einwenig anpassen xD
Viel Spass beim weiter machen
Gruß NickelM