procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser then
ShowMessage('Complete document was loaded')
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end;
end;
'오래된 글들 > Gentlecat's Job' 카테고리의 다른 글
advstring Grid 체크박스 넣기 (0) | 2008.11.19 |
---|---|
폼 얼지 않게 sleep 주기 (0) | 2008.11.19 |
파일복사 (1) | 2008.11.19 |
파일삭제 함수 (0) | 2008.11.19 |
grid 첫 데이터 선택하기 (0) | 2008.11.19 |
edit 숫자만 입력받기 (0) | 2008.11.19 |
TWebBrowser 엔터키 먹게 하기 (0) | 2008.11.19 |
Grid 특정셀 색깔 or 폰트칼라 (0) | 2008.11.19 |
grid 드래그 카피하기 (0) | 2008.11.19 |
delphi2007 에서 suipack skin 의 모양이 틀어질때 (0) | 2008.11.19 |