Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
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);
А чё он её потом в тру не ставит?
Кстати, почему мне на письмо пришла версия с color=gray в теге? Это ты исправил на красное, или это особенности говнокода?
http://www.santehnica.ru/catalog/174-2080.html
нем. бегать
Кстати, почему мне на письмо пришла версия с color=gray в теге? Это ты исправил на красное, или это особенности говнокода?