🚀 go-pugleaf

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