SendMessage между потоками

[Kamalekb]

Добрый вечер. Не получаеться решить задачу.

Даны 2 потока.
Поток А генерирует случайные числа от 0 до 100.

if Если Value < 80 then PostMessage(WM_USER + 10, Value)
if(Value >= 80) and (Value=<90) thenPostMessage(WM_USER + 11, Value)
if (Value > 90) then (WM_USER + 12, Value)

И посылает сообщение SendMessage

Поток Б принимает значение WM_user, и в зависимости от того, какой WM_User пришел, окрашивает Edit

Вот программный код:

var
  Form1: TForm1;
  ThreadId1,ThreadId2:dword;
  HThread1,HThread2: THandle;
  Window: HWND;
  Message : TMsg;

procedure potokA;
var
  Value: integer;
begin
   Randomize;
  while true do
  begin
    value := Random(100);
    Form1.Edit1.Text:=IntToStr(Value);

    if(value<80) then PostMessage(Window, WM_USER + 10, value, 0);
    if(value>=80)and(value<90) then PostMessage(Window, WM_USER + 11, value, 0);
    if(value>90) then sendmessage(Window, WM_USER + 12, value, 0);
    Sleep(500);
  end;
end;


procedure potokB (var message: TMessage);
begin

if(Msg.message = WM_USER + 10) then
  begin
    Form1.Edit1.Text := IntToStr(Msg.message);
    Form1.Edit1.Color := clGreen;
  end;
  if(Msg.message = WM_USER + 11) then
  begin
    Form1.Edit1.Text := IntToStr(Msg.message);
    Form1.Edit1.Color := clBlue;
  end;
  if(Msg.message = WM_USER + 12) then
  begin
    Form1.Edit1.Text := IntToStr(Msg.message);
    Form1.Edit1.Color := clRed;
  end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Window := form1.Handle;
HThread1:=CreateThread (nil, 0, @ potokA, nil, 0, ThreadID1);
HThread2:=CreateThread (nil, 0, @ potokB, nil, 0, ThreadID2);

[GunSmoker]

И.... что?

[eoln]

Если не ошибаюсь, то SendMessage для оконнных компонентов. Для потоков PostThreadMessage.

var
  Form1: TForm1;
  ThreadId1,ThreadId2:dword;
  HThread1,HThread2: THandle;
  Window: HWND;
  Messages : TMsg;

implementation

{$R *.dfm}

procedure potokA;
var
  Value: integer;
begin
   Randomize;
  while true do
  begin
    value := Random(100);
    Form1.Edit1.Text:=IntToStr(Value);
    if(value<80) then PostThreadMessage(ThreadID2, WM_USER + 10, value, 0);
    if(value>=80)and(value<90) then PostThreadMessage(ThreadID2, WM_USER + 11, value, 0);
    if(value>90) then PostThreadMessage(ThreadID2, WM_USER + 12, value, 0);
    Sleep(500);
  end;
end;


procedure potokB;
var Msg : TMsg;
begin
While GetMessage(Msg,0,0,0) do
 begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
if(Msg.message = WM_USER + 10) then
  begin
    Form1.Edit1.Text := IntToStr(Msg.WParam);
    Form1.Edit1.Color := clGreen;
  end;
  if(Msg.message = WM_USER + 11) then
  begin
    Form1.Edit1.Text := IntToStr(Msg.WParam);
    Form1.Edit1.Color := clBlue;
  end;
  if(Msg.message = WM_USER + 12) then
  begin
    Form1.Edit1.Text := IntToStr(Msg.WParam);
    Form1.Edit1.Color := clRed;
  end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Window := form1.Handle;
HThread1:=CreateThread (nil, 0, @potokA, nil, 0, ThreadID1);
HThread2:=CreateThread (nil, 0, @potokB, nil, 0, ThreadID2);
end;

[Человек_Борща]

ТС, я вам уже говорил. send|PostMessage это ДЛЯ ОКОН. Ваши потоки не имеют окон. И по этому не смогут обработать эти сообщения.

И ксти, вы настолько ленивы чтобы поискать? http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx