Q&A

  • 델파이 인터넷 새창 띄우기
안녕하세요? 델파이를 처음으로 시작했습니다.



예를 들어 B1 이라는 버튼이 있다고 하면
이 B1를 눌렀을때 "네이버"로 인터넷 새창이 띄어지는 방법이 어떻게 되나요?


1  COMMENTS
  • Profile
    sallyslaw 2007.01.06 19:34


    1. WebBrowser 컴포를 사용하는 방법
    form 에 Internet 팔레트에 있는 WebBrowser 컴포를 올린 후

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      WebBrowser1.Navigate('www.naver.com');
    end;



    procedure TForm1.Button1Click(Sender: TObject);


    2. IE 창을 실행하는 방법

    IE를 사용하기 위해서는 ComObj, Variants 2개 유닛이 uses 절에 추가되어야 합니다.

    procedure TForm1.Button1Click(Sender: TObject);
    const
      Obj_Name = 'InternetExplorer.Application';
    var
      IE    : Variant;
      Hnd : HWnd;
    begin
      if( VarIsEmpty( IE ) )then
      begin
        IE := CreateOleObject( Obj_Name );
        IE.Visible := true;
        IE.Navigate( 'www.naver.com' );
      end else
      begin
        Hnd := FindWIndow( 'IEFrame', nil );
        if( 0 <> Hnd )then
        begin
         IE.Navigate( 'www.naver.com' );
         SetForegroundWindow( Hnd );
        end;
      end;
    end;

    즐코하세요~~