Gauge

Vil du have et færdigt program, eller bare en beskrivelse af hvordan?

jeg vil gerne vide hvordan med kode.. Altså hvordan gøre jeg sådan at når jeg trykker på en knap så kommer der en lille form frem med en gauge og den gauge skal så køre i 10 sek. og indtil den er 100% og når den er det så kommer der en anden form frem (Form3)

Okay... Du vil altså have et helt program!!! :)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal; //Den med en Gauge på
  Form3.Show;
end;

På din Form2 smider du så en Timer og en Gauge... Timerens interval sætter du til 100 (or what ever you like), og Enabled sættes til False...

procedure TForm2.FormShow(Sender: TObject);
begin
  Gauge1.MinValue := 0;
  Gauge1.MaxValue := 10{sekunder}*1000{milisekunder};
  Counter := 0;
  Timer1.Enabled := True;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Gauge1.Progress := Gauge1.Progress + Timer1.Interval;
end;

Hov, kom lige til at trykke for tidligt...

Det her skal med:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Gauge1.Progress := Gauge1.Progress + Timer1.Interval;
  if Gauge1.Progress >= Gauge1.MaxValue then
  begin
    Timer1.Enabled := False;
    Close;
  end;
end;

Der melder fejl ved :
Counter := 0;
"Undeclared indentifier: 'Counter'"

Bare fjern det... Det var noget jeg tænkte på at bruge, men det var ikke nødvendigt! :)