|
만해님이 알려주신 내용을 조금 정리했읍니다. 잘되네요... ^)^ 감사합니다..
밑에처럼하면 Form을 호출할 때 바로 띄울 수 있읍니다.
.
.
#include "SHDocVw_OCX.h"
#include <mshtml.h>
.
.
.
TMain *Main;
__fastcall TMain::TMain(TComponent* Owner):TForm(Owner){
Body->Navigate(WideString("About:blank"), EmptyParam, EmptyParam, EmptyParam, EmptyParam);
}
//----------------------------------------------------------------------------------------------------------------------
void __fastcall TMain::FormShow(TObject *Sender){
ShowHTML(" 만해님께 감사를 드립니다. "");
}
//----------------------------------------------------------------------------------------------------------------------
void __fastcall TMain::ShowHTML(String aData){
IHTMLDocument2 *dHTML;
IHTMLElement *dElem;
if(S_OK == Body->Document->QueryInterface(IID_IHTMLDocument2,(void**)&dHTML)){
if(S_OK == dHTML->get_body(&dElem)){
dElem->put_innerHTML(WideString(aData));
dElem->Release();
}
dHTML->Release();
}
Body->Document->Release();
}
//----------------------------------------------------------------------------------------------------------------------
|