求助：关于bcb ftp上传进度条问题

[doublexb]

本人实现了一个ftp上传文件的程序，程序流程如下：
读取一个传送列表文件，里面有需传送文件完整路径。
一条条读取并传送。
现在有以下两个问题：
1、由于想要尽可能令操作简单，所以不准备加按钮，传送文件函数全部在TForm1构造函数里，现在出现这一问题，只有早传送成功后TForm1构造成功，才会弹出窗口。现在希望能够一运行就弹出窗口，不加按钮，自动传送文件。传送成功后，窗口中Label1自动由“传送中”变为“传送成功”。
2、希望在窗口中加在一个进度条，显示当前传送进度，不知道怎么才能加。

本人菜鸟，接触bcb刚半个月，所以最基本的东西都不太懂。有知道怎么设计的希望能够给我指点。谢谢了！

[ccrun.com]

如果你将传送过程放到Form的构造函数中，是看不到的进度条的，因为窗口还显示不出来。可以放到Form的OnActivate事件中，略作延时，然后开始自动传送文件。这时窗体就可以显示出来了。你是用什么函数或组件实现的FTP上传？

[qizhao2001]

1. 程序启动，读入列表，建线程，在线程中IdFTP 上传
2. 用IdFTP 的OnWork 事件，可以知道已上传数据大小，做进度条

[doublexb]

回复妖哥：
我用的NMFTP组件，OnActivate事件怎么实现啊？有没有一些代码例子？谢谢了！

[doublexb]

回复2s，怎么用线程啊？我还不会。IdFTP 也没见过

[doublexb]

回复2s：传送多个文件，不过是一个一个传，谢谢了！

[qizhao2001]

就是indy组件，线程可以新建一个线程单元，具体google。如果只是要传一个文件，不要同时传多个文件，用不着线程。