请教怎样得到方法/属性的使动者。(20分)

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #1

我想取出kk中thecanvas的使动者（下面的paintbox1）;
function tform1.kk(Thecanvas:Tcanvas):boolean;
begin
thecanvas.MoveTo(100,100);
thecanvas.LineTo(200,200);
//这里怎写代码。取出thecanvas的使动者（下面的paintbox1）
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
kk(paintbox1.canvas);
end;

 

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #2

up

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #3

TCanvas类并没有诸如Parent之类的属性，因此不可能直接获得所属对象的名称。
我有一个办法：穷举Form1的控件，判断他们的Canvas是否与thecanvas相等...哈哈！
...no way

 

王

王寒松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #4

简单修改一下KK
function tform1.kk(Thecanvas:Tcanvas
Handle: THandle):boolean;
begin
thecanvas.MoveTo(100,100);
thecanvas.LineTo(200,200);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
kk(paintbox1.canvas
PaintBox1.Handle);
end;

 

N

net_donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #5

up

 

B

budianermayi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #6

同意王寒松的方法!

 

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #7

谢谢！