表示しているページのアドレスをEdit1に入れるには？ (ID:33694)

名前

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

本文

procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);

という行がTForm7の宣言のところで抜けているのではないかなぁと。

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin, OleCtrls, SHDocVw, ImgList;

type
  TForm7 = class(TForm)
    WebBrowser1: TWebBrowser;
    ToolBar1: TToolBar;
    BackButton: TToolButton;
    ForwardButton: TToolButton;
    HomeButton: TToolButton;
    RefleshButton: TToolButton;
    StopButton: TToolButton;
    Edit1: TEdit;
    NavigateButton: TToolButton;
    ImageList1: TImageList;
    procedure BackButtonClick(Sender: TObject);
    procedure ForwardButtonClick(Sender: TObject);
    procedure HomeButtonClick(Sender: TObject);
    procedure RefleshButtonClick(Sender: TObject);
    procedure StopButtonClick(Sender: TObject);
    procedure NavigateButtonClick(Sender: TObject);
    procedure WebBrowser1CommandStateChange(Sender: TObject;
      Command: Integer; Enable: WordBool);
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure WebBrowser1TitleChange(Sender: TObject;
      const Text: WideString);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

こういう感じになるはずと思うのですが、privateの上の

procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);

という2行がないのではないかなぁと。

そうでなければソースコードをここに貼り付けたほうが話が早いと思います。

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

戻る