S
superwk
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个form里面有一个olecontainer，两个button,一个是用来载入文件，另一个用来改变
olecontainer的宽度，但是发现改变宽度以后，原来的olecontainer里面的object没有改变
大小，只是在原来的地方多出一块灰色的不可编辑的区域，而原来的内容跑到左边去了，我试
了所有的sizemode，发现都不行，如何能让olecontainer中的内容改变大小，那位大虾不吝赐教
先谢了！
修改的程序如下：
procedure TForm7.Button1Click(Sender: TObject);
var
filepath:string;
begin
if OpenDialog1.Execute then begin
filepath:= OpenDialog1.FileName;
OleContainer1.CreateObjectFromFile(filepath,false);
OleContainer1.DoVerb(ovShow);
// showmessage(filepath);
end;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
olecontainer1.Left:=10;
olecontainer1.Width:=self.Width-10;
olecontainer1.ClientWidth:=olecontainer1.Width-10;
end;
olecontainer的宽度，但是发现改变宽度以后，原来的olecontainer里面的object没有改变
大小，只是在原来的地方多出一块灰色的不可编辑的区域，而原来的内容跑到左边去了，我试
了所有的sizemode，发现都不行，如何能让olecontainer中的内容改变大小，那位大虾不吝赐教
先谢了！
修改的程序如下：
procedure TForm7.Button1Click(Sender: TObject);
var
filepath:string;
begin
if OpenDialog1.Execute then begin
filepath:= OpenDialog1.FileName;
OleContainer1.CreateObjectFromFile(filepath,false);
OleContainer1.DoVerb(ovShow);
// showmessage(filepath);
end;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
olecontainer1.Left:=10;
olecontainer1.Width:=self.Width-10;
olecontainer1.ClientWidth:=olecontainer1.Width-10;
end;