ActivXを配置したウインドウ（ブラウザ）のサイズを知るには？ (ID:41456)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ありがとうございます。 おかげさまで、親ウインドウ（ブラウザ）の大きさを取得することができました。 しかし、せっかくウインドウ（ブラウザ）のサイズを取得できたのですが、肝心のOCX（ActiveForm)のサイズが変更できません。 ためしに、Button1を配置し、ボタンをクリックしたら、その時点のフォーム（ブラウザ）のサイズを取得して、OCXのサイズを設定しようとしましたが、サイズが変わりません。 procedure TActiveForm1.Button1Click(Sender: TObject); var hParent :HWnd; R :TRect; begin hParent :=GetParent(self.Handle); Windows.GetClientRect(hParent, R); self.Width:=r.Right; self.Height:=r.Bottom; //変更されない end; r.Rightと、r.Bottomの値は、フォームのサイズに間違いないと思います。 ActiveFormCreateイベントのところにself.Width:=、self.Height:= を書くと、OCXのサイズは変わります。 procedure TActiveForm1.ActiveFormCreate(Sender: TObject); begin self.Width:=screen.Width; self.height:=screen.height; //変更される end; ウインドウ（ブラウザ）のサイズを知ることはできましたが、 ActiveXのWidth・Heightを、配置したブラウザのウインドウサイズに合わることがまだできないため、できればこの部分もよろしくお願いします。