Q&A
- [re] WebBrowser에서 다른데로 링크를했는데.. 찾을수 없을때 폼을 종료하고 싶어요
위의 소스 오류 수정입니다.
<!--CodeS-->
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if Pos(UpperCase('res://'), UpperCase(URL))>0 then
begin
Cancel:=true; // 더이상 네비게이션하지 않도록.
Close; // 창닫기
end;
end;
<!--CodeE-->
<!--CodeS-->
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if Pos(UpperCase('res://'), UpperCase(URL))>0 then
begin
Cancel:=true; // 더이상 네비게이션하지 않도록.
Close; // 창닫기
end;
end;
<!--CodeE-->
0
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 전병기
- 2003.05.14 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- (__+)
- •
- 2003.05.14 01:12
- 1 COMMENTS
- /
- 0 LIKES
-
yosule•2003.05.14 21:39지금까지 해결하셨나 모르겠네요. 핵심인 선택되어진 Row냐 아니냐를 구분하는 루틴이 빠진 것 같군...
-
- 이준호
- 2003.05.14 01:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 정문희
- •
- 2003.05.13 23:22
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2003.05.14 00:31지금 일하는곳에서는 퀵을 bmp로 만들어서 jpeg로 바꿔서 보내고 있는데... 이런식으로 해보세요... 퀵자...
-
정문희•2003.05.14 00:40팁란에 있는거 보구 또 모르는거 있음 님에게 물어볼께요...^^ 그래구 되는거죠....ㅎㅎ 답변 감사합...
-
- 이성근
- •
- 2003.05.13 21:54
- 2 COMMENTS
- /
- 0 LIKES
-
이강석•2003.05.13 23:11먼저 안녕하십니까..? 윈도는 대단한(?) 운영체제라 API쓸 때도 약간의 차이가 생깁니다.. 98,2000,XP이...
-
이성근•2003.05.15 20:41안녕하십니까? 요즘 바쁘신가보네요? 메일로 관련된 소스보내드렸는데 아직 답변이 없으셔서요. 제가 워...
-
- 이종일
- •
- 2003.05.13 21:51
- 1 COMMENTS
- /
- 0 LIKES
-
한만교•2003.05.19 20:32
-
- 윤광희
- 2003.05.13 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 제타
- •
- 2003.05.13 21:02
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2003.05.14 01:54안녕하세요. 한원희입니다. TWebBrowser 컴포넌트에 보면, OnBeforeNavigate2 이벤트가 있습니다. 여기...
-
- 김진석
- 2008.11.05 19:03
- 0 COMMENTS
- /
- 0 LIKES
위의 소스 오류 수정입니다. <!--CodeS--> procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin if ...
-
- 앙리앙리
- •
- 2003.05.13 20:17
- 2 COMMENTS
- /
- 0 LIKES
-
정용광•2003.05.14 21:16QRRichText2.Lines.Add(query3.fieldbyname('값').Asstring); 에서 왜 값이 들어가야 하죠.. sum아닌가...
-
앙리앙리•2003.05.14 21:35거기서 값은... 문자열을 라인에 찍으려고 하는거죠... calcfield 참조(비교)해서요... 레코드 마다 ...
-
- 천왕봉
- •
- 2003.05.13 19:59
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2003.05.13 23:44
-
- 정문희
- •
- 2003.05.13 19:21
- 1 COMMENTS
- /
- 0 LIKES
-
김경록•2003.05.14 20:121. Database 컴포넌트를 사용하셨나여? 아님.. ADO를 사용하셨나여? ...
-
- 김지훈
- 2003.05.13 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 김자언
- 2003.05.13 18:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 정우성
- 2003.05.13 11:44
- 0 COMMENTS
- /
- 0 LIKES
-
-
김진용•2003.05.13 17:53전체적으로 이상이 없는 데요... if FileExists(Filename)=TRUE then 이값이 ...
-
-
- (__+)
- •
- 2003.05.13 05:23
- 3 COMMENTS
- /
- 0 LIKES
-
최병철•2003.05.16 18:28참고 하세요 While문을 이용해 보세요
-
이중철•2003.05.13 05:38For I := 0 to TempTable.RecordCount do begin => For I := 0 to TempTable.RecordCount -1 do b...
-
김진용•2003.05.13 17:37꼭 분기를 할려구 할경우가 생기면 exit 말구 continue 를 사용하면 됩니다.
-
- 박해주
- •
- 2003.05.13 05:06
- 2 COMMENTS
- /
- 0 LIKES
-
한만교•2003.05.13 07:34인스톨 쉴드를 이용해서 SQL 연결을 추가하세용...
-
김주•2003.05.14 05:45저 같은 경우는 인스톨 술드에서 하지 않고...당연히 해도 됩니다.. 전 배포시 인ㅅ톨 쉴드을 사용하지 않...
-
- 심은숙
- •
- 2003.05.13 04:12
- 1 COMMENTS
- /
- 0 LIKES
-
배건환•2003.05.16 23:22정확한 답변이 될지는 모르겠지만... 어디가 잘못된건지 소스를 모르닌깐... ActiveX 할시 VBScript를 ...
-
- 손규만
- •
- 2003.05.13 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
한만교•2003.05.13 07:36답변이라기 보다는 제가 예전에 F1Book을 이용해서 프로그램 만들어서 인스톨해서 제공할때 해당 OCX가 다...
