Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > свойство, содержащие ссылку на объект

Автор: Cashey 4.4.2008, 16:22

как мне создать свойство в потоке class(TThread) в которое можно было бы поместить ссылку на com объект?
типа такого

Код


type
  testcom = class(TThread) 
 public
  property loCmdServer: Variant write nil ;

что бы потом можно было сделать

Код


testcom.loCmdServer :=  CreateOleObject('cmdserver.CmdServer1');

Добавлено через 9 минут и 51 секунду
Все, разобрался

Код


type
  testcom = class(TThread) 
private
    oVar: Variant;
 public
   property loCmdServer: Variant read oVar write oVar ;