怎样能使两个动态移动的控件之间的连线也跟着移动(10分)

E

elfgirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #1

我窗体上有两个控件,这两个控件都可以拖着随意移动.我想在它们之间连上一根线,控件移动线就跟着移动.应该怎么编码.我试了试改变pen mode不行,各位有何高招?谢谢[][][]

 

K

killerc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #2

pen.mode := pmNotXor;

 

E

elfgirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #3

我用了,根本不行.无论将那个代码加在哪里都不行,屏幕一闪一闪的,好像要点一下屏幕,线才消失.你说应该将这句代码如何放置?谢谢

 

K

killerc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #4

在 Create 时,
DoubleBuffered := True;
pen.mode := pmNotXor;
在移动一个控件时,首先知道它原来的位置，要从和它相连的控件到此控件画一条线，其实
是擦除上次的线，在这里可以知道被移动的控件的新位置，再从和它相连的控件到此控件
的新位置画新的线。

 

E

elfgirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #5

谢谢,我待会试试.我现在遇见一个大麻烦.我有几个可以移动的控件,我想用一个数组记录它们的位置.然后我在每个mousemove中加入了如下代码:
spt.x=((TBitBtn*)Sender)->Left;
spt.y=((TBitBtn*)Sender)->Top;
i=i+1;
我在头文件中也定义了数组,定义了i
可是一运行就出现错误,难道这样做不对吗?

 

K

killerc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #6

是访问越界吗？

 

E

elfgirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #7

what?[?][?][]

 

R

rustle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #8

出的什么错你要说一下啊
最好把代码贴出来

 

E

elfgirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #9

好像是内存错误,出来一个消息框,太长了贴出来太麻烦了.我这样用数组对吗?

 

E

elfgirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #10

请问你有没有兴趣看看我的源代码,帮我添上几句话,实现我程序的小小的功能.我实在是搞得焦头烂额了.如果能,我把源代码贴上来.快点救救我吧,我已经不行了.谢谢

 

K

killerc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #11

好的，你贴出来看看，当然如果程序不大，也可以发到我的邮箱killer_c@sohu.com

 

B

base7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #12

killerc:
程序不大就发到你的信箱里,程序大了就贴出来?不明白的说