Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Kann der PC net Zählen?? (https://www.delphipraxis.net/6107-kann-der-pc-net-zaehlen.html)

Luckie 30. Jun 2003 08:18

Noch besser. Anstatt sleep, das benutzen:
Delphi-Quellcode:
procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

Privateer3000 30. Jun 2003 20:43

Versuchs mal so:
(so mach ich meine Countdowns)
Delphi-Quellcode:
var
  Form1: TForm1;
  counter: Integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(counter);
Button1.Caption:='Countdown'+IntToStr(counter);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
counter:=300;
end;

end.

Privateer3000 2. Jul 2003 09:14

Hallo DJ-SPM,

konntest du etwas damit anfangen??

TheMiller 2. Jul 2003 16:14

Hi,

also ich habe das Problem so gelöst, dass ich eine Progressbar implementiert habe und wenn diese auf eine bestimmte Position kommt, der Monitor in den Standby - Modus wechselt. Denn das Flackern in Label1.Caption war nicht so schön

Aber trotzdem danke!!!

Luckie 2. Jul 2003 17:57

Moment. Hab eich das richtig verstanden? Du schaltest den Monitor in den Standby-Modus nur weil du das mit dem Flackern des Labels nicht in den Griffbekommen hast? :shock:

Das darf doch nicht war sein. Warum machst du an der Stelle nicht gleich einen Reboot?

Daniel B 2. Jul 2003 18:03

Zitat:

Zitat von Luckie
Moment. Hab eich das richtig verstanden? Du schaltest den Monitor in den Standby-Modus nur weil du das mit dem Flackern des Labels nicht in den Griffbekommen hast? :shock:

Ziemlich Bitter oder? *stundenlangeskopfschütteln*

Wiedem auch sei, das Thema mit dem Flackern hatten wir vor ein paar Monaten schonmal, also, wer suchet der findet!

Grüsse, Daniel :hi:

TheMiller 3. Jul 2003 19:42

Nein,

ich hatte es so gedacht, dass Label1.Caption irgendwann auf 0 runtergezählt hat und dann der Monitor in den Standby-Mode geht (eine Art Countdown). Aber mir ist dann eingefallen, dass das mir der Progressbar eleganter aussieht...


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:19 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz