Q&A

  • Internet Exploror title caption 없애려는데요........한수부탁드립니다.
               try
                  IE := CreateOleObject('Internetexplorer.Application');


             IE.Left   := Self.Left ;
             IE.top    := Self.top  ;
             IE.Width  := Self.Width ;
             IE.Height := Self.Height ;

                  IE.Visible := true;
                  IE.Navigate(str);
                  IE.Toolbar := false;  //툴바없애기

/////
    IE 타이틀바 없애려는데요 아무리 찾아봐도 없어서요
      한수 갈쳐주세요.

////
                  result := true;
               finally
                  IE := Unassigned;
               end;
1  COMMENTS
  • Profile
    nilriri™ 2006.01.12 19:56
    procedure TForm1.Button1Click(Sender: TObject);
    var
       ie: OleVariant;                                //IDispatch;
    begin
       try

          IE := CreateOleObject('Internetexplorer.Application');

          SetWindowLong(ie.hwnd, GWL_STYLE, GetWindowLong(ie.hwnd, GWL_STYLE) and not WS_CAPTION);

          IE.Left := Self.Left;
          IE.top := Self.top;
          IE.Width := Self.Width;
          IE.Height := Self.Height;

          IE.Visible := true;
          IE.Navigate('http://www.delphi.co.kr/');
          IE.Toolbar := false;                        //툴바없애기
          ie.statusbar := false;
          ie.menubar := false;

       finally
          IE := Unassigned;
       end;
    end;


    이렇게 하니 되네요..^^;