передать значение переменной string между потоками

← →
SergP © (2005-12-04 23:17) [0]

Нужно передать значение переменной string из дополнительного потока в основной (нужно для работы со свойствами VCL-компонентов).
Использование глобальных переменных мне почему-то не нравится...

... const MYMESSAGE = WM_USER + 1; type TFrmMain = class(TForm) ... private procedure MyProcedure(var M : TMessage); message MYMESSAGE; end; ... procedure SendString(Str:string); begin // Здесь нужно передать значение Str SendMessage(FrmMain.Handle,MYMESSAGE,....); end; procedure TFrmmain.MyProcedure(var M: TMessage); begin // А здесь нужно его получить end;

Как это сделать?

← →
Юрий Зотов © (2005-12-05 01:33) [1]

procedure SendString(Str:string);
begin
SendMessage(FrmMain.Handle, MYMESSAGE, Integer(Str), 0);
end;

procedure TFrmmain.MyProcedure(var M: TMessage);
begin
S := String(M.WParam)
end;

передать значение переменной string между потоками Найти похожие ветки