Текущий архив: 2005.12.18;
Скачать: CL | DM;
Вниз
передать значение переменной 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;
Страницы: 1 вся ветка
Текущий архив: 2005.12.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.059 c
