Q&A

  • 익스플로러 ActiveX에 마우스로 그림을 그릴 수 없나요?
WebBrowser Control을 폼에 놓고

그 위에 마우스로 그림을 그리려고 하는데



WebBrowser가 Canvas 속성을 가지고 있지도 않고



WebBrowser 컨트롤 위에 PaintBox나 Image 등이 올라가지 않습니다.



고수님들의 조언 부탁 드립니다.



2  COMMENTS
  • Profile
    컴맹... 2001.01.26 19:11
    저는 버튼 클릴 이벤트에서 처리 했는데여...

    이걸 마우스 이벤트로 바꾸면 그림 그리는게 가능합니다..

    procedure TForm1.Button1Click(Sender: TObject);

    var

    WebCanvas : TCanvas;

    Dc : HDC;

    begin

    WebCanvas := TCanvas.Create;

    DC := GetDc(WebBrowser1.Handle);

    WebCanvas.Handle := Dc ;



    WebCanvas.TextOut(10,10,'hi Handel');

    ReleaseDC(WebBrowser1.Handle,dc);

    end;



    물론 Canvas를 Free시켜주시는것은 아시져..?

    그럼 이만...1





    진요한 wrote:

    > WebBrowser Control을 폼에 놓고

    > 그 위에 마우스로 그림을 그리려고 하는데

    >

    > WebBrowser가 Canvas 속성을 가지고 있지도 않고

    >

    > WebBrowser 컨트롤 위에 PaintBox나 Image 등이 올라가지 않습니다.

    >

    > 고수님들의 조언 부탁 드립니다.

    >

  • Profile
    진요한 2001.02.04 21:04
    답변 감사드립니다.

    그런데...

    WebBrower의 DC 얻어 그림을 그리면 빈화면 일땐 그려지는데

    어떤 사이트를 띄운 상태일땐 전혀 안먹더라구요



    VC에서는 Html View의 PreTranslate에서 처리를 하면 되던데

    델파이에서는 어떻게 해야 할지...



    컴맹... wrote:

    > 저는 버튼 클릴 이벤트에서 처리 했는데여...

    > 이걸 마우스 이벤트로 바꾸면 그림 그리는게 가능합니다..

    > procedure TForm1.Button1Click(Sender: TObject);

    > var

    > WebCanvas : TCanvas;

    > Dc : HDC;

    > begin

    > WebCanvas := TCanvas.Create;

    > DC := GetDc(WebBrowser1.Handle);

    > WebCanvas.Handle := Dc ;

    >

    > WebCanvas.TextOut(10,10,'hi Handel');

    > ReleaseDC(WebBrowser1.Handle,dc);

    > end;

    >

    > 물론 Canvas를 Free시켜주시는것은 아시져..?

    > 그럼 이만...1

    >

    >

    > 진요한 wrote:

    > > WebBrowser Control을 폼에 놓고

    > > 그 위에 마우스로 그림을 그리려고 하는데

    > >

    > > WebBrowser가 Canvas 속성을 가지고 있지도 않고

    > >

    > > WebBrowser 컨트롤 위에 PaintBox나 Image 등이 올라가지 않습니다.

    > >

    > > 고수님들의 조언 부탁 드립니다.

    > >