PageControl

@WestSide072 · Регистрация: 15.07.2010

Author24 — интернет-сервис помощи студентам

Delphi 2010, странный баг компонента PageControl.
Есть 2 страницы, на каждой свой Memo, в них какие-то данные прописаны.
запускаются несколько потоков и по очереди берут из этих Memo строки, удаляя каждый раз первую(кол-во строк убывает) при таком раскладе программа начинает подвисать, потоки виснут, форма зависает!
НО, если перед запуском потоков полистать обе страницы (просто для просмотра хотя-бы) багов не будет.
Может чем-то можно заменить PageControl?

Добавлено через 4 минуты
#upd
решил проблему так

Delphi

procedure TForm1.FormActivate(Sender: TObject);
begin
  PageControl1.ActivePage := TabSheet2;
  sleep(50);
  PageControl1.ActivePage := TabSheet1;
  sleep(50);
  PageControl1.ActivePage := TabSheet2;
  sleep(50);
  PageControl1.ActivePage := TabSheet1;
end;

Но что-то мне не нравится такое решение..

@krapotkin · 02.12.2015, 07:12

есть мнение что дело в потоках
строка 17

@krapotkin 5780 / 4523 / 1430 Регистрация: 14.04.2014 Сообщений: 20,147 Записей в блоге: 20
	02.12.2015, 07:12	2
	есть мнение что дело в потоках строка 17 0