무한루프를 이용할 필요가 없습니다. 소스참조하세요.
그리고 제가 해보니 Border 가 없어도 잘 되는데요.
좀 다른 상황인지 모르겠네요.
첨부파일 참조하세요~
p.s: 기본값으로 들어간 주소는 제가 쓰는 곳인데
location.replace 로 이동하는 방식인데 이럴 경우 스크롤바가 안사라지네요 ;ㅁ;
데구르르 님이 쓰신 글 :
: 안녕하세요. TWebBrowser를 이용해서 작은 프로그램을 만들고 있는데 많이 막히네요^^
: 델파이 6에 CoolTray를 사용하고 있습니다.
:
: 1. 자식폼이 TWebBrowser을 리로드하면 스크롤바가 나타납니다.
: TWebBrowser에서 게시물을 클릭하면 익스플로러 새창을 띄운 후 새창에서 닫기를
: 클릭하면 데이터베이스에 읽었다고 처리를 한 후 TWebBrowser를 리로드하는데 스
: 크롤바가 나타납니다.
: TWebBrowser에서 직접 웹페이지를 호출할때는 아래와 같이 매번 스크롤바를
: 숨겨주는데 자식폼이 리로드할때는 스크롤바가 나타나서 화면이 이상해지는데
: 방법이 없을가요?
:
: try
: WebBrowser.Navigate(NewsInfo.URL_HTTP + NewsInfo.URL_USER);
:
: while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
: Application.ProcessMessages;
: WebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden';
: WebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden';
: except
: end;
:
: 2. MainForm BorderStyle 이 None일때 TWebBrowser 안의 보이는 HTML들이 클릭되지
: 않습니다.
:
: 테스트하면서 찾은 특이한 점은 None을 제외한 사이즈어블이나 싱글등은 클릭이
: 잘되고요.
: None일 경우 트레이에 숨었다가 화면이 복구되었을때 클릭이 한번 되네요.
: 그 후에는 클릭이 되지를 않습니다. 다시 트레이에 숨겼다가 화면 복구하면 클릭
: 이 또 한번 됩니다. ㅜㅜ
: Main폼에는 패널 3개와 Top과 Bottom은 Image만 올라가 있고,
: 가운데 Client 패널에 TWebBrowser가 Client로 올라가있습니다.
:
: 답변 꼭 부탁드릴께요 ㅠㅠ
:
: 해결을 위해 시도해본 내용 (실패)
: SetWindowLong( Handle, GWL_STYLE, GetWindowLong( Handle, GWL_STYLE ) and not WS_CAPTION ) ;
:
: WS_CAPTION을 STYLE에서 빼고 해 보았습니다.
|