begin SendMessage(Form1.Edit1.Handle, WM_SETTEXT, 0,
Integer(PChar(IntToStr(index))));
Inc(index);
if index>100000 then
index:=0; if terminated then exit; end; end;
Как видишь, теперь у нас вместо метода Synchronize генерируется событие на обновления компонента TEdit. В качестве второго параметра я указываю тип сообщения WM_SETTEXT – обновить информацию. Третий параметр равен нулю. В последнем параметре нужно указать значение, которое нужно установить. Вот тут есть небольшая сложность. У нас значение представлено в виде целого числа, но нужно превратить его в PChar. Для этого я сначала конвертирую переменную index в строку (IntToStr), потом привожу его к типу PChar и тут же указываю размер Integer. Сложно? Зато не надо ничего синхронизировать.
На компакт диске, в директорииПримерыГлава 17Thread2ты можешь увидеть пример этой программы.