Скачать: CL | DM;

Есть процедура приостановления работы программы, но ...   Найти похожие ветки 

← →
kilop   (2006-03-14 16:12) [0]

procedure Suspend;
begin
 flag := false;
 while not flag do
 begin
    sleep(1);
    Application.ProcessMessages;
 end;
end;

данная процедура не позволяет выйти из программы привычным методом, нажатия на крестик в правом верхнем углу, помогите это исправить. Спасибо

---

← →
Dmitrij_K   (2006-03-14 16:18) [1]

procedure Suspend;
begin
flag := false;
while (not flag) and (not Application.Terminated) do
begin
   sleep(1);
   Application.ProcessMessages;
end;
end;

---

← →
kilop   (2006-03-14 19:02) [2]

Спасибо, чувак!!!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.049 c