[Фрезератор]

В отдельном модуле имею TfrUn = class(TFrame) в нём есть TMemo, в нём очень большой обработчик действий, которые в свою очередь оказывают влияние на другие элементы этого фрейма (Обработчик обрабатывает все изменения в TMemo, перебирает все строки при любом изминении). Но как таковой переменной в фрейме frUn: TfrUn; не объявляется.
В основном модуле есть pcProg: TPageControl; в нём динамически создаю страницу и объект типа TfrUn, вновь созданную страницу назначаю родителем для вновь созданного фрейма. Т. е. на каждой странице свой фрейм с TMemo у которой свои обработчики событий.
И вот когда в TMemo много строк прога начинает тупить. Хочу для каждого вызова обработчика TMemo запускать поток.
Вот мне и не снятся с ручника. Если запускать поток и в Execute вызывать этот обработчик, дак в фрейме конкретно переменной frUn нет и в модуле фрейма я не могу обратится к обработчику.
А в основном модуле, где TPageControl, как сказать родителю что данный поток должен обрабатывать именно этот обработчик.
В общем я упёрся. Помогите, люди добрые.

[lmikle]

Уперся - потому что не понимаешь как это все работает внутри.
В принципе, никакой проблемы нет, за исключением синхронизации (тут надо смотреть "вглубь" задачи).
В общем виде делается так. При создании экземпляра фрейм создает новый поток (ссылку на него можно сохранить в самом фрейме). При удалении - сначала останавливает поток и удаляет его.
Сам код обработки - внутри потока. А вот сигнал на начало очередной обработки выдается обработчиком на фрейме.
Вот скелет:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

unit MyFrame;   uses   MyThread;   type   TMyFrame = class(TFrame)   ...     FThread : TMyThread;     constructo Create(AOwner : TComponent); override;     destructor Destroy; override;   ...     procedure Memo1Change(Sender : TObject);   end;   ...   constructo TMyFrame.Create(AOwner : TComponent); begin   inherited;   FThread := TMyThread.Create(True); // Create suspended   FThread.Memo = Memo1;   FThread.FreeOnTerminate := True;   FThread.Resume; end;   destructor TMyframe.Destroy; begin   FThread.Terminate;   FThread.WaitFor;   inherited; end;   procedure TMyFrame.Memo1Change(Sender : TObject); begin   FThread.ProcessChanges := True; end;   end.   unit MyThread;   type   TMyThread = class(TThread)   ...   public     Memo : TMemo;     ProcessChanges  : Boolean;     constructor Create(CreateSuspended : Boolean); override;      procedure Execute; override;   end; ... constructor TMyThread.Create(CreateSuspended : Boolean); begin   inherited;   Memo := Nil;   ProcessChanges := False; end;   procedure TMyThread.Execute; begin   While Not Terminated Do     Begin       If (Memo= Nil) Or (Not ProcessChanges)         Then Sleep(500)         Else           Begin              ProcessChanges := False;              // Дадее твой код обработки              ...           End;     End' end;

[Фрезератор]

lmikle спасибо. Я и правда не очень понимаю как это работает. Пока то что накопал в разных местах. Первый раз решил попробовать повозится с потоками.