对于没有canvas属性的Tpanel怎样加上Tcanvas属性，实现绘画功能(50分)

K

keler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #1

对于没有canvas属性的Tpanel怎样加上Tcanvas属性，实现绘画功能

 

冰

冰 原

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #2

在上面放个image

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #3

GetDC

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #4

CC := TCanvas.Create;
CC.Handle := GetDC(Edit1.Handle);
CC.Ellipse(10,10,100,100);
CC.Free;

然后你就可以为所欲为了。

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #5

to: 吕雪松
问题点到及可,各位看官都是高人.

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #6

好

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #7

var

c:TCanvas;

begin

c:=TControlCanvas.Create;

TControlCanvas(c).Control:=Panel1;

c.Brush.Style:=bsClear;

c.Pen.Color:=clBlue;

c.Rectangle(5,5,15,15);

c.Free;

end;

 

Z

zeroworld

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-21

• #8

其实tpanel是有Canvas的，只不过没有放出来而已
自己写一个如
type
TMYPanel=class(TPanel)
public
property Canvas;
end;
在用到时这样处理
var pnl:TPanel;
pnl:=TPanel.create;

TMYPanel(pnl).canvas.lineto...

 

K

keler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #9

多人接受答案了。