在delphi中,如何编写并行进程的问题?????(200分)

  • 主题发起人 scy_fjqz
  • 开始时间
S

scy_fjqz

Unregistered / Unconfirmed
GUEST, unregistred user!
好例如:就是当放背景音乐的同时,鼠标还能够做别的
请高手赐教!!1
 
it's better to use thread.
Another easier way is to use TMediaPlayer component.
 
scy_fjqz: 谢谢你的分哦:)
难道你放背景音乐时,鼠标不能做别的吗?
 
如果用MediaPlayer控件放的时候,确实是不能做其它事情,当然这是指同一个程序。
 
就是不太懂线程,有什么好例子,给我一个看看!

To reboot:
“ 难道你放背景音乐时,鼠标不能做别的吗”,
你说的没错,自己编的,鼠标就不能做别的啦!
请赐教!谢谢!

 
建一个继承TTHREAD对象的实例,在THREAD的EXCUTE的重载的方法中实现代码。
你本来的主THREAD爱干什么就干什么去了,哈哈。
顺便说说
“ 难道你放背景音乐时,鼠标不能做别的吗”,
你编的程序不管用了多少个THREAD和系统的鼠标的移动是没关系的,即使不能移动一般也不会
是单线程的问题,除非你的程序中在同一个线程中有对鼠标的控制了。

希望能帮到你了呵呵
 
给一个小源程序看看吧,不然不太懂啊,呵呵///
 
多线程。
 
多线程。
把背景音乐放在次要的线程中,主线程做鼠标移动。
 
我编一个分行图像,是用画布画的 (canvas),可是它在画的同时,我想把它
停止,可因为我不懂的多线程编程,只有等画布画完啦,才能单击鼠标,
请问如何编多线程??让画布画一半,就停下来//
请赐教!
 
scy_fjqz: Delphi不是有个Thread的Demo程序吗?
先看看,不会给我Email:)
 
这就是一个线程的例子:

type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
implementation
procedure TMyThread.Execute;
begin
while not Terminated do
begin
Write you code here ...
end;
end;
 
to BaKuBaKu:
能不能说的详细一点啊///
谢谢,再给你200分,如何啊///
 
接受答案了.
 
honestman:
请说得详细一点,最好有源代码
 
顶部