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
上边放了我做的几个控件还有一些我写的源码,希望能给您带来帮助!
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
上边放了我做的几个控件还有一些我写的源码,希望能给您带来帮助!