Thread View: pl.comp.lang.delphi
2 messages
2 total messages
Started by Chudzik
Wed, 17 Sep 1997 10:58
Okienko odliczajace czas.
Author: Chudzik
Date: Wed, 17 Sep 1997 10:58
Date: Wed, 17 Sep 1997 10:58
41 lines
1536 bytes
1536 bytes
Witam...
Chcialbym stworzyc okienko odliczajace czas
z mozliwoscia przerwania odliczania.
Moje wszystkie powysly zawodza,
zatem prosze o pomoc.
Ostatnio skorzystalem z watka.
Przy aktywacji okna wywoluje drugi watek,
w nim zawarta jest obsluga odliczania czasu.
Na koncu watka wywoluje zamkniecie okna,
ale ono nie zamyka sie od razu dopiero
po paru sekundach. (Moze wiecie dlaczego).
function MojWatek(NotUsed: Pointer): Integer;
begin
repeat
...
{ odliczanie czasu, zmniejszanie licznika }
...
until (LicznikCzasu<0) or Anuluj;
TMojeOkno.Close;
end;
procedure TMojeOkno.FormActivate(Sender: TObject);
var
THID : DWord;
begin
Anuluj:=false;
CreateThread(nil,0,@MojWatek,nil,0,THID);
end;
procedure TMojeOkno.bbPrzyciskAnuluj(Sender: TObject);
begin
Anuluj:=true;
end;
Za pomoc z gory dziekuje.
Pozdrowienia,
Chudzik,
http://free.polbox.pl/t/tchudzik
Re: Okienko odliczajace czas.
Author: Tomasz Łaski
Date: Wed, 17 Sep 1997 11:29
Date: Wed, 17 Sep 1997 11:29
13 lines
1112 bytes
1112 bytes
Cześć! Próbowałeś zrobić to najprościej - umieść komponent TTimer, który np co 1sek zmienia wyświetlaną liczbę, a gdy upłynie zadany okres czasu zamyka okienko?. Dokładność zegara wynosi 1/18s Pozdrawiam Tomasz Łaski Chudzik napisał(a) w artykule <5vod8e$rta$1@okapi.ict.pwr.wroc.pl>... >Witam... >Chcialbym stworzyc okienko odliczajace czas >z mozliwoscia przerwania odliczania. >Moje wszystkie powysly zawodza, >zatem prosze o pomoc.
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads