다음의 소스는 컴파일시는 이상이 없는 데 실행을 시키면 에러가 납니다.
WebBrowser_V11 는 import active control에서 Microsoft Internet Conrol V1.1을 설치한 후 사용했습니다.(IE버젼은 6,0)
헌데 WebBrowser_V11부분이 Sender 오브젝트를 쓰기로 되어 있는데 잘못된 것 같습니다.
그럼 부탁드립니다.
만약 아래 내용이 안된다면 혹시 원하는 IE창을 찾아서 Ctrl + N키를 누른 효과를 어뗗게 자동적으로 할 수 있을 까요?
그럼 다시 부탁드립니다.
procedure TFrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
var
MyVariant : OleVariant;
fboolean : WordBool;
f1,f2,f3 : widestring;
begin
f1 := 'www.yahoo.co.kr';
f2 := '';
f3 := '';
WebBrowser_V11.OnNewWindow(WebBrowser_V11,f1,1,f2,MyVariant,f3, fboolean);
end;