1. Pascal / Говнокод #6444

    +107

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    procedure TFCar.Button3Click(Sender: TObject);
 begin
 gUpload.Visible:= True;
 Button3.Enabled:= False;
 bClear.Enabled:= False;
 bAdd.Enabled:= False;
 bCreateOrder.Enabled:= False;
 bCloce.Enabled:= False;
 mysleep(100);
 sleep(10000);
 ShowMessage('sleep off');
 end;
 ----------------
 procedure mysleep(i:Integer);
 var
 z:Integer;
 begin
 for z:=0 to i do
 begin
 Sleep(5);
 Application.ProcessMessages;
 end ;
 end;
 ---------------
 это немного помогло решить проблему... кнопки становятся неактивными до выполнения sleep(10000);

    Немного классического торможения двигателем...

    Запостил: bugmenot, 21 Апреля 2011

    Комментарии (14) RSS

    Добавить комментарий