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

名前

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

本文 とにかく新規作成して何も貼り付けず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.