WEBページの入力BOXにaが入力でにないのを回避するには (ID：32178)

名前

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

本文

環境はXPのＤ６Personalです。
当サイトの過去ログ「PageControlのページを削除するとエラーがでる
」のママんさんのコードを参考にブラウザの勉強中です。
下記の件で行き詰まっています。
Webページの投稿欄などで入力BOXがありますが、サイトによっては
文字「a」だけやスペースが入力できないサイトがあります。
前記のコードを必要な部分だけ抽出したコードが下記の通りです。
フォームにTPagecontrolを貼り付けただけです。WebBrowserは動的に作成。
ところが、Captionにページのタイトルを代入するコードをコメントアウト
すれば問題なく入力できます。
FormCreate()にいろいろなサイト例を列挙してみました。
私が任意に設定したコードがないので、原因がわかりません。
なにかサイトに仕掛けがあるのでしょうか。
新米が下手な説明をするよりはと長文になりました。すみません。
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls,  ExtCtrls, ComCtrls, StdCtrls, SHDocVw_TLB;

type
  TIETabSheet = class(TTabSheet)
  private
    procedure WebBrowser1TitleChange(Sender: TObject; const Text: WideString);
  public
    WebBrowser1 : TWebBrowser;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

TForm1 = class(TForm)
    PageControl1: TPageControl;
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{ TIETabSheet }
procedure TIETabSheet.WebBrowser1TitleChange(Sender: TObject; const Text: WideString);
begin
  //Caption代入をコメントアウトすれば文字aやスペースを入力できる
  //↓↓↓↓↓
  Caption:= Text;//タブのキャプション決定
end;

constructor TIETabSheet.Create(AOwner: TComponent);
begin
  inherited;
  //タブシートの作成と同時にブラウザ作成
  WebBrowser1 := TWebBrowser.Create(self);
  TOleControl(WebBrowser1).Parent := Self;
  WebBrowser1.Align               := alClient;
  WebBrowser1.OnTitleChange := WebBrowser1TitleChange;//イベントの定義
end;

destructor TIETabSheet.Destroy;
begin
  WebBrowser1.Free;//タブシートの破棄と同時にブラウザ破棄
  inherited;
end;

{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);//タブを動的に作成
var
  IETab:TIETabSheet;
begin
  IETab :=  TIETabSheet.Create(PageControl1);
  IETab.Parent       := PageControl1;
  IETab.PageControl  := PageControl1;
  PageControl1.ActivePage := TTabSheet(IETab);
    //aだけ入力できないサイト例 （新規投稿ページ）
    IETab.WebBrowser1.Navigate('http://miuras.net/taro/cyclamen.cgi');
    //Serchに  aは入力できるがスペースは入力できないサイト。
    //ただしgoogleサーチ窓は入力できる
    //IETab.WebBrowser1.Navigate('http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi');
    //問題なく入力できるサイト例
    //IETab.WebBrowser1.Navigate('http://homepage2.nifty.com/winfaq/bbs2k.html');
    //IETab.WebBrowser1.Navigate('http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi');
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る