Gauge und Timer

[poterp]

Hallo,
ich verwende ein Gauge und ein Timer mit folgenden code

Delphi-Quellcode:

procedure Form1.OKBtnClick(Sender: TObject);
begin
 Gauge1.MinValue:=0;
 Gauge1.MaxValue:= 23;
 Timer1.Interval := 100;
 if Gauge1 <> nil then
 Gauge1.Progress:= Gauge1.Progress + 1;
end;

Folgendes Problem:
MaxValue:=23; wird nicht angehalten, es geht bis 100%.

wie kann ich mit einem click den Gauge bis 23% automatisch hochfahren???


grüß
poter

[dajuhsa]

natürlich gehts bis 100% das ist bei tgauge nunmal so.
MaxValue=23
Progress=23
---------->100% wird angezeigt denn:
23 sind 100% von 23

zu deiner frage:
maxvalue := 100
und bei klick dann:
Progress := 23

[poterp]

Danke, weisst du wie ich es bei einem click automatisch laufen lassen kann?
mfg
poter

[dajuhsa]

also dass es nach klick hochzählt?
beim click den timer enablen (enabled := true)
und im timerevent dann eben hochzählen

Delphi-Quellcode:

procedure TForm1.FormClick(...);
begin
  Timer1.enabled := true;
end;

procedure TForm1.Timer1Timer(...);
begin
  Gauge1.progress := gauge1.progress + 1;
end;

oder so ähnlich

[poterp]

Morgen,
Timer und Gauge arbeiten. Ich glaube es die Möglichkeit geben, dass der Gauge auf z.b.: 85% stoppt
wenn ich zb folgendes mache:

Delphi-Quellcode:

procedure TDualListDlg.FormCreate(Sender: TObject);
begin
Gauge1.Progress:=50;
end;

bei Start steht er auf 50%. D.h es musst eine Moglichkeit geben mit der Timer auch ein Maximal Zahl
festzulegen oder?

Delphi-Quellcode:

procedure TForm1.btnClick(...); 
begin 
  Timer1.enabled := true; 
end; 

procedure TForm1.Timer1Timer(...); 
begin 
  Gauge1.MinValue:=0;
  Gauge1.MaxValue:=50;
  Gauge1.progress := gauge1.progress + 1; 
end;

Bitte wenn jemanden helfen kann?
mfg
poter

[poterp]

Hallo,
hat jemanden eine idee?

[Gehstock]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(...); 
begin 
  Gauge1.MinValue:=0; 
  Gauge1.MaxValue:=100; 
  Gauge1.progress := gauge1.progress + 1; 
  if gauge1.Ppogress = 85 then Timer1.enabled :=false
end;

procedure TForm1.btnClick(...); 
begin 
  Timer1.enabled := true; 
end;

[poterp]

Danke, es funktioniert
grüß
poter

[dajuhsa]

vielleicht das mit minvalue und maxvalue weglassen - geht n büschn schneller