Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

что да? да - TThread или да - апи? о_О

если через TThread то пишешь в созданном потоке процедурку такого вида

Код:

procedure MyThread.updmemo(str: string);
begin
  memo1.lines.add(str);
end;

и в execute пишешь

Код:

var i: integer;
begin
  for i := 0 to 1024 do
    Synchronize(updmemo(inttostr(i)));
end;

для того чтобы не вешать форму надо все вычисления выполнять до синхронизации!
например код что выше не будет вешать форму, а этот будет

Код:

procedure MyThread.updmemo();
 var i: integer;
begin
  for i := 0 to 1024 do
    memo1.lines.add(inttostr(i));
end;

в execute

Код:

begin
  Synchronize(updmemo);
end;