Q&A

  • ActiveX Form 에서 버튼 클릭시 새로운 Explorer 생성


하는 방법을 알려주십시오.



클릭해서 폼을 닫는것은 해결을 했는데..



클릭했을 때에 새로운 익스플로어를 실행시켜서 새로운 창에 화면을 보여주어야



하는데.. 으... 좀만 도와주세여...



그럼, 이만...



아.. 그리고 버튼을 클릭했을 때에 종료시키는 것은 다음과 같이 해결했습니다.



procedure TFRunApp03.BtnExitClick(Sender: TObject);

var

IExplorer : THandle;

begin

IExplorer := FindWindow('IEFrame', nil);

If IExplorer <> 0 Then

SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);

end;



//



#define IDS_SCSIZE SC_SIZE

#define IDS_SCMOVE SC_MOVE

#define IDS_SCMINIMIZE SC_MINIMIZE

#define IDS_SCMAXIMIZE SC_MAXIMIZE

#define IDS_SCCLOSE SC_CLOSE

#define IDS_SCRESTORE SC_RESTORE

#define IDS_SCTASKLIST SC_TASKLIST

3  COMMENTS
  • Profile
    조규춘 2000.11.18 01:05
    방기남 wrote:

    >

    > 하는 방법을 알려주십시오.

    >

    > 클릭해서 폼을 닫는것은 해결을 했는데..

    >

    > 클릭했을 때에 새로운 익스플로어를 실행시켜서 새로운 창에 화면을 보여주어야

    >

    > 하는데.. 으... 좀만 도와주세여...

    >

    > 그럼, 이만...

    >

    > 아.. 그리고 버튼을 클릭했을 때에 종료시키는 것은 다음과 같이 해결했습니다.

    >

    > procedure TFRunApp03.BtnExitClick(Sender: TObject);

    > var

    > IExplorer : THandle;

    > begin

    > IExplorer := FindWindow('IEFrame', nil);

    > If IExplorer <> 0 Then

    > SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);

    > end;

    >

    > //

    >

    > #define IDS_SCSIZE SC_SIZE

    > #define IDS_SCMOVE SC_MOVE

    > #define IDS_SCMINIMIZE SC_MINIMIZE

    > #define IDS_SCMAXIMIZE SC_MAXIMIZE

    > #define IDS_SCCLOSE SC_CLOSE

    > #define IDS_SCRESTORE SC_RESTORE

    > #define IDS_SCTASKLIST SC_TASKLIST





    방기남님 하이여~~~~~~~



    델세상(http://www.freechal.com/delphiworld)에 자주 놀러 오셔요~ ^^



    마일리지좀 높이게요 ^^



    혹시 이거 아닌가 시퍼서 글 남겨요~



    Uses Urlmon;



    일반 html을 호출하는 경우

    HlinkNavigateString(nil,'http://www.freechal.com/delphiworld');



    ActiveForm을 포함한 html을 호출하는 경우

    HlinkNavigateString(Comobject,'http://www.freechal.com/delphiworld');



    타켓 페이지를 지정하여 호출하는 경우

    HlinkNavigateToString('http://www.freechal.com/delphiworld',nil,'detail',Comobject,nil,nil,0,0);





    물론 새창으로 뜹니다용~ ^^



    수고하셔요.. 방기남님...

  • Profile
    아이언 2000.11.17 22:53
    아실 내용 일텐데...



    WinEXEC('IEFrame', SW_SHOW);

    하면.. 뜰텐데...요!



    의도를 잘 모르겠네요..



    Embedded Web Component로 Browser를 직접 제작 하시면.

    NewWindows2라는 창이 있던데..거기가 새창으로 클릭했을때..발생하구..]

    그 때 암짓도..안하면.. 기본 Explorer가 뜨구요..!



    ---------------------------------------------------





    방기남 wrote:

    >

    > 하는 방법을 알려주십시오.

    >

    > 클릭해서 폼을 닫는것은 해결을 했는데..

    >

    > 클릭했을 때에 새로운 익스플로어를 실행시켜서 새로운 창에 화면을 보여주어야

    >

    > 하는데.. 으... 좀만 도와주세여...

    >

    > 그럼, 이만...

    >

    > 아.. 그리고 버튼을 클릭했을 때에 종료시키는 것은 다음과 같이 해결했습니다.

    >

    > procedure TFRunApp03.BtnExitClick(Sender: TObject);

    > var

    > IExplorer : THandle;

    > begin

    > IExplorer := FindWindow('IEFrame', nil);

    > If IExplorer <> 0 Then

    > SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);

    > end;

    >

    > //

    >

    > #define IDS_SCSIZE SC_SIZE

    > #define IDS_SCMOVE SC_MOVE

    > #define IDS_SCMINIMIZE SC_MINIMIZE

    > #define IDS_SCMAXIMIZE SC_MAXIMIZE

    > #define IDS_SCCLOSE SC_CLOSE

    > #define IDS_SCRESTORE SC_RESTORE

    > #define IDS_SCTASKLIST SC_TASKLIST

  • Profile
    방기남 2000.11.17 23:07


    해봤는데...



    안되는군요.... 다른 방법은 없을까여??