|
문정원 님이 쓰신 글 :
: ctl3d 프로퍼티가 변경안되던데요
: 방법이 있나여?
: 부탁드립니다.
음 위에 좀 나름대로 재미있는;; 답변이 있었으나... 근본적으로 해결하는 방법을
알려드리고자 글을 씁니다.
TCppWebBrowser에 OnNavigateComplete2에서 다음처럼 처리하십시오.
Border의 3D효과를 없애고 스크롤바까지 없애주죠.
void __fastcall TMainForm::WebBrowserNavigateComplete2(
TObject *Sender, LPDISPATCH pDisp, TVariant *URL)
{
Variant HTMLDoc = ((TCppWebBrowser *) Sender)->Document;
if ( !VarIsEmpty( HTMLDoc ) )
{
Variant Body = HTMLDoc.OlePropertyGet("body");
if ( !VarIsEmpty( Body ) )
{
Body.OlePropertyGet("style").OlePropertySet("borderStyle", "none");
Body.OlePropertySet("scroll", "no");
VarClear(Body);
}
VarClear(HTMLDoc);
}
}
사실상 이와 같은 요령으로 IE를 불러오는 TCppWebBrowser를 다양하게
통제할 수 있습니다.
|