EmbeddedWeb에서 클릭시 New윈도우가 나올때 막고 내가 원하는 EmbededWeb에 띄우기.

yyjksw

16년 ago

EmbeddedWeb에서 클릭시 New윈도우가 나올때 막고 내가 원하는 EmbededWeb에 띄우기.
EmbededWeb에서 OnNewWindows3 이벤트에서 다음과 같은 작업을 합니다.

procedure TFRM.EmbeddedWB1NewWindow3(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
  bstrUrl: WideString);
begin
  Cancel := True;    // 새로운 Explorer창을 띄우지 못하도록 합니다.
  EmbeddedWB2.Go( bstrUrl  );   // URL을 내가 원하는 곳으로 출력합니다.
  Inc( clickCount );
end;

procedure TFRM.EmbeddedWB1NewWindow3(ASender: TObject; var ppDisp: IDispatch;

var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,

bstrUrl: WideString);

begin

Cancel := True; // 새로운 Explorer창을 띄우지 못하도록 합니다.

EmbeddedWB2.Go( bstrUrl ); // URL을 내가 원하는 곳으로 출력합니다.

Inc( clickCount );

end;

도움되시길..

이 글 공유하기: