|
ｿｽ@ｿｽｿｽFormActivateｿｽﾌ使ｿｽｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽfｿｽｿｽｿｽfｿｽｿｽ 2006/08/09(ｿｽｿｽ) 10:01:44
ｿｽVｿｽｿｽDELPHIｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽ}ｿｽ[ｿｽﾌゑｿｽﾌでゑｿｽｿｽB
FormActivateｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ欲ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
Activateｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ痰ｦｿｽﾎフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽｿｽCｿｽｿｽｿｽｿｽFormActivateｿｽｿｽ
ｿｽLｿｽqｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄ帰ｿｽｿｽｿｽﾄ暦ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽAFormActivate
ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽFormActivateｿｽﾍ擾ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾌ厄ｿｽｿｽｿｽｿｽｿｽﾈとゑｿｽvｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
FormActivateｿｽﾌ茨ｿｽﾊ的ｿｽﾈ使ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄ欲ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
HOta 2006/08/09(ｿｽｿｽ) 13:20:21
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、OnCreateｿｽﾅゑｿｽｿｽ蛯､ｿｽB
OnActivateｿｽﾍ、ｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽvｿｽﾍ鯉ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽfｿｽｿｽｿｽfｿｽｿｽ 2006/08/09(ｿｽｿｽ) 14:40:26
HOtaｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽBOnCreateｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄ１ｿｽｿｽﾌみ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽﾌ人ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽOnActivateｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅ行ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽ
ｿｽﾌでは？ｿｽﾆ思ｿｽｿｽｿｽﾞゑｿｽｿｽｿｽAｿｽoｿｽOｿｽﾉなゑｿｽvｿｽｿｽｿｽﾅはなゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽKｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽOnActivateｿｽﾍ記ｿｽqｿｽｿｽｿｽ骼厄ｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH
ｿｽ`ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽvｿｽﾍ趣ｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾉゑｿｽ 2006/08/09(ｿｽｿｽ) 22:35:24
IPｿｽｿｽ¥ｿｽｿｽｿｽLｿｽOｿｽA
ｿｽdｿｽｿｽｿｽ黷ｩｿｽｿｽVｿｽﾑで擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾌで、ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
OnActivateｿｽｿｽTApplicationｿｽATCustomFormｿｽﾌ難ｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Form1.OnActivareｿｽｿｽTCustomFormｿｽﾌ包ｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ難ｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾔでのフｿｽHｿｽ[ｿｽｿｽｿｽｿｽActivateｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽﾟ単ｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾅは始ｿｽﾟの茨ｿｽしゑｿｽｿｽNｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
TApplicationｿｽﾍ別アｿｽvｿｽｿｽｿｽﾔでゑｿｽActivateｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽﾌで難ｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽactivateｿｽﾉは対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽ
//Unit1
private
procedure AppActivate(Sender: TObject);
procedure TForm1.FormActivate(Sender: TObject);
begin
ListBox1.Items.Add('Form1 ' + inttostr(GetTickCount));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//TApplicationｿｽｿｽOnActiveｿｽCｿｽxｿｽｿｽｿｽg
Application.OnActivate :=AppActivate;
end;
procedure TForm1.AppActivate(Sender: TObject);
begin
ListBox1.Items.Add('App ' + inttostr(GetTickCount));
end;
procedure TForm1.Button2Click(Sender: TObject);
Begin
//ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾅゑｿｽActiveｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ShowMessage('test');
end;
//Unit2
procedure TForm2.FormActivate(Sender: TObject);
begin
ListBox1.Items.Add('Form2 ' + inttostr(GetTickCount));
end;
Hello World 2006/08/10(ｿｽｿｽ) 09:03:13
> FormActivateｿｽﾌ茨ｿｽﾊ的ｿｽﾈ使ｿｽｿｽｿｽｿｽｿｽｿｽ
> ｿｽｿｽｿｽｿｽｿｽﾄ欲ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
ｿｽuｿｽｿｽﾊ的ｿｽﾈ使ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽﾌに、ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽかと。
ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ茨ｿｽﾊ的ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽが、ｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽﾌみ、ｿｽ^ｿｽCｿｽ}ｿｽ[ｿｽ動作さｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽﾛ的ｿｽﾈ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽB
> ｿｽｿｽｿｽﾌ人ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽｿｽOnActivateｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽ
> ｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾉゑｿｽ ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽAｿｽPｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽｿｽしゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇのタｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾅ行ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽfｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽuｿｽｿｽｿｽﾌ人ｿｽvｿｽﾉは、
OnActivateｿｽｿｽｿｽﾅ適ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽiｿｽPｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽｿｽしゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで）ｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾍ、OnActivateｿｽｿｽOnCreateｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽgｿｽずｿｽAconstructor Create ｿｽｿｽ
ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽ痰､ｿｽNｿｽ`ｿｽﾅゑｿｽｿｽｿｽｿｽB
constructor THogeForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//ｿｽｿｽｿｽｿｽｿｽｿｽ
end;
OnCreateｿｽｿｽｿｽAｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽxｿｽ轤ｹｿｽﾄ趣ｿｽｿｽsｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ鼾ｿｽAｿｽｿｽﾉ暦ｿｽｿｽｿｽ<ｿｽｿｽｿｽｿｽ>ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽﾅゑｿｽ 2006/08/11(ｿｽｿｽ) 07:19:19
ｿｽｿｽﾉゃさｿｽｿｽAHello World ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾗ具ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽﾌはわかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
HOta 2006/08/11(ｿｽｿｽ) 16:43:45
ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽvｿｽﾉつゑｿｽｿｽﾄ、ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽuｿｽｿｽｿｽｿｽｿｽvｿｽﾆは、ｿｽwｿｽｿｽｿｽZｿｽ|ｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ体系ｿｽｿｽｿｽﾄて具ｿｽｿｽｿｽｿｽｿｽｿｽﾊに使ｿｽｿｽｿｽ骭ｾｿｽtｿｽﾅ「ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽ丁寧ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは違うｿｽAｿｽuｿｽdｿｽｿｽｿｽvｿｽｿｽｿｽtｿｽﾆなゑｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ大そｿｽ黷ｽｿｽｿｽｿｽﾈどでゑｿｽｿｽｿｽけｿｽｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽｿｽﾈ鯉ｿｽｿｽtｿｽｿｽgｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽBｿｽPｿｽﾉ「ｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾅ十ｿｽｿｽｿｽﾉ抵ｿｽｿｽJｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽB
