Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c