用delphi写了个activeX(ocx)控件,放到vb.net里面,设置了缺省的宽和高,放到vb.net却没用

Question

用delphi写了个activeX(ocx)控件,放到vb.net里面,设置了缺省的宽和高,
构造函数:
constructor TQPPricePanel.Create(AOwner: TComponent);
begin
  inherited;
  Width := 193;
  Height := 108;
...
在delphi运行正常
放到vb.net却没用
后来修改代码
procedure TQPPricePanel.CreateWnd;
begin
  inherited;
  PostMessage(Handle, WM_CREATED, 0, 0);
end;procedure TQPPricePanel.WMCreated(var Message: TMessage);
begin
  SetWindowPos(Handle, 0, 0, 0, 193, 108, SWP_NOMOVE or SWP_NOZORDER);
end;
异步修改大小,结果在vb.net虽然是可以了,但是vb.net的那个可以resize的选择框大小却不会跟着我窗体大小发生改变!
请教如何解决这个问题?

Answer 1

你可以在vb.net里面控制他的大小