我在dll中所定义的函数如下
procedure showform(hand:HWND;str:string;ole:TOleContainer);
var
strstream:TFileStream;
begin
strstream:=TFileStream.Create(str,fmOpenReadWrite,0);
with tfrmole.Create(nil) do
begin
Ole.DestroyObject;
Ole.LoadFromStream(strstream);
end;
strstream.Free;
end;
然后我在另一个窗体中使用dll,用的是静态调用
但是提示说,这个窗体中的ole找不到父窗体。
说明:我在dll中的窗体中无ole控件,在使用的窗体中有ole控件。要急死了,各位帮忙啊!
procedure showform(hand:HWND;str:string;ole:TOleContainer);
var
strstream:TFileStream;
begin
strstream:=TFileStream.Create(str,fmOpenReadWrite,0);
with tfrmole.Create(nil) do
begin
Ole.DestroyObject;
Ole.LoadFromStream(strstream);
end;
strstream.Free;
end;
然后我在另一个窗体中使用dll,用的是静态调用
但是提示说,这个窗体中的ole找不到父窗体。
说明:我在dll中的窗体中无ole控件,在使用的窗体中有ole控件。要急死了,各位帮忙啊!
我要100分。 ^_^
->
with tfrmole.Create(hand) do