Реферат Курсовая Конспект
Begin index:=1; while index>0 do - раздел Электроника, Дополнительные возможности потоков Begin Sendmessage(Form1.edit1.handle, Wm_Settext, 0, ...
|
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ты можешь увидеть пример этой программы.
– Конец работы –
Эта тема принадлежит разделу:
На сайте allrefs.net читайте: 17.3 Дополнительные возможности потоков. ..................................................................... 408. Глава Потоки...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Begin index:=1; while index>0 do
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов