为什么会could not obtain ole control window handle (50分)

  • 主题发起人 主题发起人 huanzhugege
  • 开始时间 开始时间
H

huanzhugege

Unregistered / Unconfirmed
GUEST, unregistred user!
TMy = class(TCustomPanel)
private
Web: TDirectSS;
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
end;
constructor TMy.Create(AOwner: TComponent);
var
dc: HDC;
begin
inherited Create(AOwner);
Web := TDirectSS.Create(nil);
dc := GetDC(Web.Handle);
BitBlt(self.Canvas.Handle,0,0,100,100,dc,0,0,SRCCOPY);
ReleaseDC(Web.Handle, dc);
end;

var
a: TMy
begin
a := TMy.Create(self);
end;
其中 TDirectSS 是微软的一个activex控件"microsoft direct text-to-speech"

运行时为什么提示:could not obtain ole control window handle?
顺便宣传一下我的小站:http://lincosoft.go.nease.net
上边放了我做的几个控件还有一些我写的源码,希望能给您带来帮助!
 
Web := TDirectSS.Create(nil);到这里出错吗?
试试
Web := TDirectSS.Create(AOwner);
 
后退
顶部