ブラウザにスクロールバーを表示させたいのですが

解決

XYZ 2011-12-12 16:19:06 No: 41338 IP: 192.*.*.*

WebBrowserを使ってWebページを表示させてます。
FormコンポーネントにPanelコンポーネントを貼り付け、その上にWebBrowserコンポーネントを貼り付けています。
Webページは表示されるのですが、Panelコンポーネントの分しか表示（スクロールバーが表示されず）できないので、困っています。
それらしきプロパティが見つからないのですが、どのプロパティをTrueにすればスクロールバーが表示されるのでしょうか？

編集削除

monaa 2011-12-12 22:52:50 No: 41339 IP: 192.*.*.*

WebBrowser1.Align := alClient;
もちろんオブジェクトインスペクタ画面（GUI画面）で設定可能です。

編集削除

XYZ 2011-12-13 08:19:20 No: 41340 IP: 192.*.*.*

monaaさん回答ありがとうございます。
おっしゃるとおりに設定してみたのですが、横方向のスクロールバーは出るのですが、縦方向が出ません。

編集削除

monaa 2011-12-13 15:38:00 No: 41341 IP: 192.*.*.*

とにかく新規作成して何も貼り付けずFormCreateに下記コードをコピペして下さい。
XE2で確認しました。
これでスクロールバーが出なければ環境が変です。
usesは適宜変更よろしくです。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Panel:TPanel;
  Browser:TWebBrowser;
begin
  Panel := TPanel.Create(Self);
  Panel.SetBounds(30,30,130,130);
  Panel.Parent := Self;
  Browser := TWebBrowser.Create(Self);
  Browser.Align := alClient;
  TOleControl(Browser).Parent  := Panel;
  Browser.Navigate('http://google.com');
end;

end.

編集削除

あ 2011-12-13 22:08:24 No: 41342 IP: 192.*.*.*

参考までに、Googleのサイトを表示させた状態で、Formを極端に小さく
したらどうなりますか？（目安として、100px×100pxくらいまで）
自動的にスクロールバーが出てきませんか？

編集削除

XYZ 2011-12-17 16:34:51 No: 41343 IP: 192.*.*.*

monaaさん、あさん、ありがとうございます。
いろいろ試していたら、うまく表示されるようになりました。

monaaさんのコードで試してみようとしたのですが、
エラー（赤い波線）がいっぱい出てしまって、動くようにする方法が分からなくって...

panelのAlignをalCustomにすることでうまくいったようです。

編集削除

XYZ 2011-12-17 18:54:53 No: 41344 IP: 192.*.*.*

勘違いでした。
まだ、うまくいっていません。
少し進歩はしたのですが。

WebBrowserの右と下にスクロールバーが表示されるようになりました。
ただ、ウインドウを最大化するとpanel2（この下にWebBrowserがあります）は大きくなりますが、WebBrowserは元の大きさのままです。

ところでレイアウトのAlignと表示のAlignはどう違うのでしょうか？

編集削除

XYZ 2011-12-23 07:58:23 No: 41345 IP: 192.*.*.*

いろいろと試していたら、今度こそ（たぶん）うまく表示されるようになりました。
どうもありがとうございます。

編集削除