Sleep

[The]

Witajcie koledzy

Wczoraj zacząłem pisać GyGy (spamer, i takie tam) i mam problem. Oto kawałek kodu, pętla while.

  while btnRozpocznij.Enabled=False do
    begin
      Application.ProcessMessages;
      HGGk1.Status:=usAvailable;
      Sleep(StrToInt(odstepczasowy.Text));
      HGGk1.Status:=usBusy;
    end;

Coś takiego: Są dwa przyciski [przycisk1] i [przycisk2]. [przycisk1] jest Enabled a [przycisk2] Disabled (Enabled:=False). Wciskasz [przycisk1], staje się on Disabled a [przycisk2] Enabled. [przycisk1] rozpoczyna działanie pętli a [przycisk2] ją kończy. ProcessMessages nie pomaga, a z timerem nie chcem się bawić no a Sleep 'zawiesza' aplikacje. Podczas działania pętli nic nie mogę zrobić, no prawie czasem po kilkunastu kliknięciach reaguje xD A tak przy okazji, dobra robota DJMentos

 

[djmentos]

hehe. dzięki ;D

Application.ProcessMessages;
daj po Sleep'ie jeszcze jeden

no a jeśli daje nie chce działać to Ci wątki pozostają.