编程论坛 → Delphi论坛

[求助]新手求助，三个小问题！！

pacocai 发布于 2007-03-13 11:34， 621 次点击

问题1：关于随机种子？

程序代码如下：

var
i:integer;
begin
random(); //产生一个随机种子，以避免重复选择
i:=RanDomize(10);
Edit1.Text:=IntToStr(i);
end;

问：为什么我产生出的结果还是会产生重复呢？？

问题2：关于如何判断ListView的内容已经被修改？

做了一个ListView的示例，增加、修改、删除都已经通过了，但是怎样都可以判断ListView的内容已经被修改，以便提求做存盘动作。

问题3：当在使用TreeView时，如果才能对里面的元件增加鼠标动作呢？

以上三个问题在学习过程中碰到，但书上没写得很清楚，一直在迷惑当中，还请各位坛友帮忙解惑，谢谢！

8 回复

#2

xu20002007-03-13 13:20

1。RandRom调用之种先要用Randomize初始化种子。
2.在OnEdited中判断。
3。没明白你的意思。

#3

pacocai2007-03-13 13:47

谢谢楼上的兄弟，我的三个问题是这样，你用TreeView建立一个树型结构的组件，当你在组件当中添加了对象以后会成为这样：

-TreeViewTest
-Test(1)
-Test(2)
-TreeviewTest2
-Test2(1)
-Test2(2)

现在我想通过鼠标点击Test(1），然后在Edit1中写出Test的内容，怎样实现，意思就是结这些组件增加鼠标动作。

#4

xu20002007-03-13 13:52

OnClick事件。
edit1.Text:=self.ListView1.Selected.Caption;

#5

pacocai2007-03-13 17:32

不是ListView，ListView我知道可以使用OnClick事件，但是TreeView怎样调用OnClick事件呢？

#6

xu20002007-03-13 19:50

TreeView也有OnClick事件呢。

#7

pacocai2007-03-13 21:49

？怎么实现，我在建立TreeView这个组件的时候不知道怎样写入这个事件。

#8

xu20002007-03-13 22:03

procedure TForm1.TreeView1Click(Sender: TObject);
begin
edit1.Text:=TreeView1.Selected.Text;
end;
刚做的，没问题。

#9

pacocai2007-03-15 13:45

知道了，谢谢。

1