|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
nish 2005/06/30(ｿｽｿｽ) 17:39:12
ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾌに会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾝ、ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾉ擾ｿｽﾔフｿｽｿｽｿｽOｿｽｿｽnｿｽｿｽｿｽﾄ、
ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾌコｿｽｿｽｿｽgｿｽXｿｽgｿｽｿｽｿｽNｿｽgｿｽｿｽTrueｿｽﾉゑｿｽｿｽA
ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽ骼橸ｿｽｿｽFalseｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽﾉ知ｿｽｿｽpｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
Delphi6EnterpriseｿｽgｿｽpｿｽB
nish 2005/06/30(ｿｽｿｽ) 18:10:52
ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽwaitｿｽｿｽgｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽAｿｽNｿｽZｿｽXｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ifThread1<>nilthen
ｿｽ@begin
ｿｽ@Thread1.Terminate;
ｿｽ@Thread1.wait;
ｿｽ@end;
nish 2005/06/30(ｿｽｿｽ) 18:18:57
ｿｽxｿｽXｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽRｿｽ[ｿｽhｿｽﾔ違えｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ‾Thread1.wait;
ｿｽｿｽThread1.WaitFor;
ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽThread1ｿｽｿｽnilｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽHｿｽCｿｽxｿｽｿｽｿｽgｿｽHｿｽﾍなゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/07/03(ｿｽｿｽ) 17:53:24
OnTerminateｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽﾈ会ｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽ
ｿｽｿｽｿｽﾈみゑｿｽTMyThreadｿｽｿｽﾉ途ｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで途ｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TMeThread=class(TThread)
private
{Privateｿｽ骭ｾ}
protected
procedureExecute;override;
end;
type
TForm1=class(TForm)
Button1:TButton;
procedureButton1Click(Sender:TObject);
private
{Privateｿｽ骭ｾ}
MeThread1:TThread;
procedureMeThread1Terminate(Sender:TObject);
public
{Publicｿｽ骭ｾ}
end;
var
Form1:TForm1;
implementation
usesMath;
{$R*.dfm}
{TMeThread}
procedureTMeThread.Execute;
vari:Integer;
begin
inherited;
fori:=0to100do
Sleep(10);
beep;
end;
////////////////////////////////////////////////
procedureTForm1.Button1Click(Sender:TObject);
begin
IfMeThread1=nilthen
begin
caption:='ｿｽ成ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ';
MeThread1:=TMeThread.Create(True);
MeThread1.FreeOnTerminate:=True;
MeThread1.OnTerminate:=MeThread1Terminate;
MeThread1.Resume;
endelsebegin
caption:='ｿｽIｿｽｿｽｿｽvｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ';
MeThread1.Terminate;
end;
end;
procedureTForm1.MeThread1Terminate(Sender:TObject);
begin
MeThread1:=nil;
caption:='ｿｽjｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ';
end;
end.
nish 2005/07/04(ｿｽｿｽ) 12:26:04
OnTerminateｿｽﾈゑｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ！ｿｽH
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄまゑｿｽｿｽｿｽ(^^;
ｿｽｿｽｿｽﾈみにマｿｽｿｽｿｽ`ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾌ趣ｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽ閧ｵｿｽｿｽnilｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/07/04(ｿｽｿｽ) 12:57:40
ｿｽ}ｿｽｿｽｿｽ`ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽTThreadｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？
MeThread1.OnTerminate:=MeThread1Terminate;
MeThread2.OnTerminate:=MeThread1Terminate;
MeThread3.OnTerminate:=MeThread1Terminate;
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ
procedureTForm1.MeThread1Terminate(Sender:TObject);
begin
TMeThread(Sender):=nil;
end;
(Sender:TObject)ｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTMeThreadｿｽﾅゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/07/04(ｿｽｿｽ) 13:52:13
>(Sender:TObject)ｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTMeThreadｿｽﾅゑｿｽｿｽB
Senderｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽTMeThreadｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ齦ｨｿｽﾍ違うｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽvarｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽし。
TListｿｽﾈどで管暦ｿｽｿｽｿｽｿｽﾄ、Terminateｿｽｿｽｿｽｿｽｿｽ辜奇ｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾙゑｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
nish 2005/07/04(ｿｽｿｽ) 15:38:30
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆてゑｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽIｿｽﾈ趣ｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽAｿｽA
>ｿｽ}ｿｽｿｽｿｽ`ｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽTThreadｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽﾄ、ｿｽ}ｿｽｿｽｿｽ`ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽTThreadｿｽ成ｿｽｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽ痰､ｿｽﾌゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで。ｿｽBｿｽB
anone 2005/07/04(ｿｽｿｽ) 15:43:35
ｿｽﾃ黙のゑｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽｿｽ驛ｿｽCｿｽｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽBTThreadｿｽﾌ派ｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽ
ｿｽﾐとつ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅゑｿｽｿｽﾅにマｿｽｿｽｿｽ`ｿｽXｿｽｿｽｿｽbｿｽhｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽB
nish 2005/07/04(ｿｽｿｽ) 16:08:01
ｿｽｿｽｿｽ`ｿｽﾈゑｿｽﾙど！
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/07/04(ｿｽｿｽ) 18:17:27
ｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽｿｽ
>>TMeThread(Sender):=nil;
ｿｽmｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾍ厄ｿｽ閧ｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽA
[[ｿｽｿｽｿｽ]]ｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽnishｿｽｿｽｿｽ分ゑｿｽｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽﾈ？
anone 2005/07/06(ｿｽｿｽ) 13:28:54
>ｿｽmｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾍ厄ｿｽ閧ｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽﾎ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽｿｽｿｽﾌ変撰ｿｽｿｽｿｽnilｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽLｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽﾄ托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽB
