delphi5运行中线段的实现(100分)

F

fcf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-13

• #1

在delphi5中程序运行时，可让用户方便地在两个对象间画一条线（
直线或折线），以把这两个对象连接起来。而且此线还可被选中。在对象移动时，
线也相应地跟着移动。
谢谢了，问题一解决，立马给分。

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-13

• #2

那很麻烦哦，
要建立动态数组纪录每根线的起始对象和终止对象，
Click的时候，要对前面的数组进行遍历，
看鼠标点中的是那根线，选中。
至于对象移动，线也移动，就是刷新的时候根据动态数组
纪录的起始对象和终止对象，重新画线。
如果还有折线的话，这个数组的结构不好写。
好像挺复杂的。

 

F

fcf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-13

• #3

如果线也是一个对象就好了。可是怎样才能实现呢？

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-14

• #4

会长有一个 TLine, 找找看，

 

Y

yxyyyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #5

将它做成一个控件

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #6

我有会长的Tline控件，可以满足你的要求，要请到我主页留言……

 

L

LawrenceZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #7

wjiachun:
你的竹叶在那?

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #8

我也曾经想过这方面的问题，我把所有的线和方框都做成类，但是，每次随着鼠标移动刷新屏幕的时候，反映比较慢。

当然，最好还是有现成的控件啦，不知谁有？

 

F

fcf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #9

我见过一个FreeDraw的Demo，那个倒是合我用，但它是for delphi3的。谁有类似的
for delphi5的，赶快帮帮忙吧。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-19

• #10

fcf:
The Email I write to you was refused!!
Give me another Email!

 

F

fcf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-19

• #11

wjiachun:
My EMail is fuchengf@163.net, or fuchengf@hotmail.com
Thank you .

 

C

cmldy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-19

• #12

cmldy@263.net
谢谢

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-20

• #13

wjiachun:
mail "Tline控件"给我好吗？源码最好。谢谢！
maming_hn@cmmail.com

fcf:
freedraw你现在有吗？
不管D3还是D5都可以，可以MAIL给我吗？谢谢!

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #14

有个tinycase的例子，不知道从那下载的了。好象可以达到你的要求。

 

Z

zensst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #15

最好从TPanel生成一个新类，自己在表面画线(这个就比较简单了)；
这样可以响应鼠标消息。此外可以新增一个FList：TList，用来保存与
那些对象关联，以便进一步操作。
自己判断新类在实例中的位置、大小及相关对象（FList），当新类移
动时，也控制相关对象移动（可以控制Top，Left）。
OK？

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #16

我也要 ,PLEASE EMAIN TO ME!!!
MY EMAIL IS 3BOY@SOHU.COM

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-02

• #17

可以参照我的TLine重新写一个TLinkLine类.
此外TurboPower公司有一个TeeTree完全具有你说的功能,你可以下在一个Demo版的,
功能完全,只是没有源代码, D1,D2,D3,D4,D5的dcu都有.

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-02

• #18

会长: 你好! 我去了TurboPower的主页,怎么没看见TeeTree? 用他的serach也找不到?

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-02

• #19

抱歉,是我记错了 不是TurboPower, 应该是Teemach公司

http://www.teemach.com/download/Downloadindex.htm

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #20

多人接受答案了。