TGauge - Wie?

[sui]

Ich weiss das es vielleicht nervt, aber ist ja nur eine kleine Frage :mrgreen:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);

    var
  platz: int64;
  prozent: string;
  partition: Int64;
  total:   Int64;

begin
  partition := DiskFree(4);
  total := DiskSize(4);

  prozent := IntToStr
  (100 * partition div total) + 'Prozent frei: ';
  label1.caption := prozent;

  platz := partition div 1024 div 1024 div 1024;
  Label2.Caption := inttostr (platz) + ' Gbytes frei. ';

  if  prozent  < inttostr(30) then label3.Caption := 'Platte aufräumen';
  gauge1.progress := round (prozent);
  end;

Also, die Gauge soll den Prozentwert darstellen, TimerKompo ist auf Interval 50 und enabled.

[sui]

Hat sich erledigt... :cyclops: