참고하세요.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

MyCanvas: TCanvas;

begin

MyCanvas:=TCanvas.Create;

Try

MyCanvas.Handle:=GetDc(Memo1.Handle);

MyCanvas.Rectangle(100,100,300,300);

Finally

MyCanvas.Free;

End;

end;



end.





델프리 wrote:

>

> 메모위에 글씨를 쓰고 마우스를 이용해서 선이나 원같은

>

> 그림을 그리려면 어떻게 하면 되나요?

>

> 관련 소스나 설명좀 부탁드립니다.

<위의 답변 아주 감사합니다~~>



그런ㄷ 알려주신 것을 WebBrowser1에 적용을 했는데요.



WebBrowser1.Navigate(URL);



처럼 navigate이 되기전에는 WebBrouser에 도형이 그려졌는데,

후에는 도형이 그려지지 않았습니다.



이럴땐 어떻게 하면 되나요?