| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как правильно реализовать эффект [Останов/Продолжить] [D5]

Страницы:   < 1 2 >

Schooler ©   (2006-05-22 16:13:00) 

На форме :
 TreeView1   :TTreeView;
 btnExecute  :TButton;
 btnContinue :TButton;

Прохожу по TreeView1 последовательно в цикле (кнопка btnExecute):

procedure TForm1.btnExecuteClick(Sender:TObject);
begin
 for i:= to to TreeView1.Items.Count-1 do  
 begin
   if TreeView1.Items[i].HasChildren
   then
     begin
         // Некоторые действия
         // ...
        // Конец   Некоторые действия
     
        // Вот здесь нужно сделать ActiveControl := btnContinue
        // и приостановить выполнение Цикла:
        // при нажатии btnContinue продолжить Цикл
     end;
  end;
end;

Как правильно такие вещи делать ? Это TThread'ы?

---

Сергей М.   (2006-05-22 16:31:00) [21]

> Это TThread'ы ?


Где ?

---

StriderMan   (2006-05-22 16:29:00) [22]

можно запомнить переменную i и потом с нее продолжить...

---

Страницы:   < 1 2 >

Наверх