сообщения объекту на форме

[igor_m]

пишу всв5 ц98, создал форму(на форме есть мемо) и отдельную нить. Хочу передовать сообщения из нити в мемо. Прямая адресация типа Form1->Memo1->Lines->Add("ok find Memo1"); часто вызывает сбой всей винды.
Отдельно код

FF =FindWindow(NULL,"Form1"); //Handle нужной формы
if(FF !=NULL) {
SendMessage(FF,WM_SETTEXT, 0, (LPARAM) "reseiv ok" );
}

работает.
Как бы теперь передать в мемо?

[ixania]

ispolizui TThread i method syncronize

[sss]

Или попробуй:

Код:

EnterCriticalSection)...:;
Form1->Memo1->Lines->Add)"ok find Memo1":; 
LeaveCriticalSection)...:;

[igor_m]

Спасибо попробую. Зато заработало вот что :
SendMessage(Form1->Memo1->Handle,WM_SETTEXT, 0, (LPARAM) "reseiv ok" );

[sss]

Вообще то Form1->Memo1->Lines->Add("ok find Memo1") это тоже самое, только асинхронный вариант PostMessage(...).
Твой поток, похоже, переполняет очередь сообщений. Поэтому наверное секции не помогут... Хотя попробуй, интересно, будет ли блокироваться выход из PostMessage при переполнении.

[igor_m]

критич. секции  тоже дали положительный результат даже лучше чем SendMessage , SM каждый раз рисует в 1 строке и стирает всё старое. правда очень на долго программу не включал .