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.
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