progressbar problem/gauge

**painrestricter**

Hallo,

kam gerade auf die idee mir einen kleinen wecker (eher countdowner) zu schreiben, weil ich immer meine pizza anbrennen lasse

klappt eig alles, nur wollte ich den fortschritt, also das zählen der sekunden noch festhalten, zb in einer progressbar (ich hab sgauge genommen, weil da so schön die prozent drinnen stehen ^^)

nur schaff ich das irgendwie nicht, dass die sekunden/millisekunden in der progressbar angezeigt werden.

weiterhin ist zu erwähnen, dass ich noch nie mit progressbars gearbeitet habe.

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  zeit, ms : integer;

implementation

{$R *.dfm}

procedure TForm1.sButton2Click(Sender: TObject);

begin

messagedlg('blabla', mtinformation, mbokcancel, 0);

end;

procedure TForm1.sButton1Click(Sender: TObject);

var i : integer;

begin

zeit := strtointdef(sedit1.text, 1);

if sedit1.text = '' then begin

  sedit1.text := '1';

 end;

ms := zeit * 60 * 1000;

timer1.Interval := ms;

sgauge1.MinValue := 0;

sgauge1.MaxValue := ms;

for i := 1 to 100 do begin

 sgauge1.progress := sgauge1.Progress +1 ;

end;

Timer1.Enabled := true;

Showmessage('Countdown beginnt, alarm in ' + inttostr(zeit) + ' minute/n');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Timer1.Enabled := false;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var i: integer;

begin

 for i := 1 to 100 do begin

   windows.Beep(1000,100)

 end;

sedit1.Clear;

end;

end.

#

danke

progressbar problem/gauge

progressbar problem/gauge

Forumregeln