|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽgｿｽｿｽﾜむ包ｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽﾆ破ｿｽｿｽ
|
ｿｽ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
take 2006/08/23(ｿｽｿｽ) 11:03:48
ｿｽﾝ抵ｿｽﾉゑｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾘゑｿｽﾖゑｿｽｿｽｿｽ謔､ｿｽﾈアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽLｿｽﾌようｿｽﾈ擾ｿｽｿｽｿｽ満ゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈ良ゑｿｽｿｽｿｽｿｽ@ｿｽｿｽ
ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽyｿｽｿｽｿｽｿｽz
ｿｽPｿｽDｿｽlｿｽXｿｽﾈ趣ｿｽﾞのフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ
ｿｽQｿｽDｿｽﾅ擾ｿｽｿｽﾉどのフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽ INIｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽB
ｿｽRｿｽDｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽINIｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ擾ｿｽｿｽｿｽQｿｽﾅ鯉ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽSｿｽDｿｽｿｽLｿｽﾌ擾ｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽﾄゑｿｽFormDestroyｿｽｿｽ
ｿｽ@ｿｽ@FormCreateｿｽﾉゑｿｽｿｽｿｽﾄ再構ｿｽzｿｽｿｽsｿｽｿｽｿｽB
ｿｽｿｽ¥ｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽSDIｿｽ`ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽｿｽﾜで待機ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽかｿｽ轤ｸｿｽAｿｽｿｽｿｽｿｽﾈ包ｿｽｿｽ@ｿｽﾅ組ｿｽｿｽﾅみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽﾆ各ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ管暦ｿｽｿｽｿｽｿｽPｿｽJｿｽｿｽｿｽﾅ行ｿｽｿｽ
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ切替や自ｿｽgｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾌ破ｿｽｿｽｿｽﾆ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾈにゑｿｽApplication.Runｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽsｿｽｿｽｿｽﾈ難ｿｽe
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ厄ｿｽ閧ｪｿｽNｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽHｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾈ外ｿｽﾉゑｿｽｿｽｿｽﾆ良ゑｿｽｿｽｿｽｿｽ@ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽyｿｽ成ｿｽｿｽeｿｽz
Form1ｿｽｿｽForm2ｿｽAｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ終ｿｽｿｽｿｽｿｽﾊフｿｽHｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾌ指ｿｽｿｽｿｽﾍデｿｽ[ｿｽ^ｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽoｿｽRｿｽｿｽｿｽﾄゑｿｽｿｽｿｽiｿｽPｿｽｿｽｿｽﾈクｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽj
ｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽFormCreateｿｽﾉゑｿｽDataModule1.FormStatus1ｿｽｿｽ2ｿｽｿｽ
ｿｽｿｽｿｽgｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽ驍ｱｿｽﾆゑｿｽ¥ｿｽｿｽ Trueｿｽｿｽ
FormDestroyｿｽﾉゑｿｽ False ｿｽｿｽｿｽｿｽｿｽﾄ通知
ｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ
DataModule1.CtrlForm := 1
Close;
ｿｽﾆゑｿｽｿｽｿｽﾎ別フｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽﾍ破ｿｽｿｽｿｽﾈゑｿｽ
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽ¥ｿｽ[ｿｽXｿｽﾉ以会ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽ
-----------------------------------------------------------------------
program FormChangeProject;
uses
Forms,
Form1Unit in 'Form1Unit.pas' {Form1},
Form2Unit in 'Form2Unit.pas' {Form2},
DataModuleUnit in 'DataModuleUnit.pas' {DataModule1: TDataModule};
{$R *.RES}
var
FForm2 : TForm2;
FForm1 : TForm1;
begin
Application.Initialize;
Application.CreateForm(TDataModule1, DataModule1);
DataModule1.CtrlForm = 1;
while True do begin
if DataModule1.CtrlForm = 2 then begin
FForm2 := TForm2.Create(Application);
FForm2.Show;
DataModule1.CtrlForm := 0;
end;
if DataModule1.CtrlForm = 1 then begin
FForm1 := TForm1.Create(Application);
FForm1.Show;
DataModule1.CtrlForm := 0;
end;
if (not DataModule1.FormStatus1) and
(not DataModule1.FormStatus2) then break;
Application.HandleMessage;
end;
//Application.Run;
end.
-----------------------------------------------------------------------
ｿｽvｿｽ]ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾈ？ 2006/08/23(ｿｽｿｽ) 12:02:25
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾌ暦ｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
ｿｽPｿｽDｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌスｿｽsｿｽ[ｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽpｿｽﾓ。ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ管暦ｿｽｿｽﾍスｿｽsｿｽ[ｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽTAGｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅ趣ｿｽｿｽﾊ。
ｿｽQｿｽDｿｽtｿｽHｿｽ[ｿｽｿｽｿｽ成ｿｽｿｽｿｽﾉＩｿｽmｿｽhｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝ対会ｿｽｿｽｿｽｿｽｿｽXｿｽsｿｽ[ｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽ動ゑｿｽｿｽｿｽｿｽB(DownｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽClickｿｽCｿｽxｿｽｿｽｿｽgｿｽH)
ｿｽRｿｽDｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ親ｿｽｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽiForm1)ｿｽﾉ設置ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽPanel1ｿｽﾉ設抵ｿｽ
uses
Unit2, Unit3, Unit4;
procedure TForm1.SpdBtnModeUSCDClick(Sender: TObject);
var
NewFormClass: TFormClass;
NewForm: TForm;
begin
//ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽwｿｽｿｽ
case (Sender as TSpeedButton).Tag of
0: NewFormClass := TForm2;
1: NewFormClass := TForm3;
2: NewFormClass := TForm4;
else
NewFormClass := nil;
end;
//ｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ破ｿｽｿｽ
if Panel1.ControlCount > 0 then
Panel1.Controls[0].Free;
//ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ設抵ｿｽ
if Assigned(NewFormClass) then
begin
NewForm := NewFormClass.Create(Self);
NewForm.Hide;
NewForm.BorderStyle := bsNone;
NewForm.Parent := PnlOwner;
NewForm.Align := alClient;
NewForm.Show;
end;
end;
//-----------------------------------------------------------
procedure TForm2ｿｽｿｽ.FormDestroy(Sender: TObject);
begin
//ｿｽKｿｽvｿｽﾈ廃ｿｽｿｽｿｽｿｽｿｽｿｽ
end;
ｿｽ‾ｿｽX 2006/08/23(ｿｽｿｽ) 12:05:11
procedure TForm1.SpdBtnModeUSCDClick(Sender: TObject);
ｿｽｿｽ
procedure TForm1.SpeedButtonClick(Sender: TObject);
NewForm.Parent := PnlOwner;
ｿｽｿｽ
NewForm.Parent := Panel1;
ｿｽｿｽｿｽｿｽｿｽｿｽけｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾌ一部ｿｽｿｽｿｽcｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽ
take 2006/08/23(ｿｽｿｽ) 13:44:23
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ轤ｪｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌとは擾ｿｽｿｽｿｽｿｽ痰､ｿｽ謔､ｿｽﾅゑｿｽ
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽ
Form2ｿｽｿｽｿｽｿｽFrom2ｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽForm3ｿｽｿｽﾄんだゑｿｽAｿｽｿｽｿｽﾌ逆ｿｽｿｽsｿｽｿｽｿｽCｿｽｿｽｿｽ[ｿｽWｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾆ子ｿｽﾆなる複ｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽuｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽｿｽv
ｿｽﾆゑｿｽｿｽｿｽｿｽﾈ単ｿｽﾈ擾ｿｽｿｽﾅつまづゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
FormｿｽｿｽQｿｽﾂ搾ｿｽｿｽｿｽｿｽForm1ｿｽｿｽeｿｽAForm2ｿｽｿｽqｿｽﾆゑｿｽｿｽｿｽｿｽLｿｽﾌようｿｽﾈのゑｿｽ成
Form2ｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
OnDestroyｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽBｿｽiOverrideｿｽpｿｽHｿｽj
OnCloseｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｪｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽﾅはまゑｿｽForm2ｿｽﾍ托ｿｽｿｽﾝゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ不ｿｽ合ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽForm2ｿｽﾌ破ｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
---------------------------------------------------------
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
FForm2 : TForm2; // ｿｽﾇ会ｿｽ
FReset: Boolean; // True:ｿｽﾈゑｿｽForm2ｿｽｿｽjｿｽｿｽｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽ
procedure OnSubFormClose(Sender: TObject; var Action: TCloseAction);
procedure OnSubFormDestroy(Sender: TObject);
public
{ Public ｿｽ骭ｾ }
property Reset : Boolean read FReset write FReset;
end;
---------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False; // ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ
FForm2 := TForm2.Create(Self);
FForm2.OnClose := OnSubFormClose;
FForm2.OnDestroy := OnSubFormDestroy;
FForm2.Show;
end;
---------------------------------------------------------
procedure TForm1.OnSubFormDestroy(Sender: TObject);
begin
if FReset then begin
FReset := False;
//FForm2.Free;
FForm2 := nil;
FForm2 := TForm2.Create(Self);
FForm2.OnClose := OnSubFormClose;
FForm2.OnDestroy := OnSubFormDestroy;
FForm2.Show;
end
else begin
Application.Terminate;
end;
end;
ｿｽﾓゑｿｽｿｽｿｽ 2006/08/23(ｿｽｿｽ) 14:08:21
ｿｽｿｽｿｽuｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽｿｽv
ｿｽﾅゑｿｽｿｽｿｽ
ｿｽｿｽForm2ｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽOnDestroyｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽBｿｽiOverrideｿｽpｿｽHｿｽj
ｿｽｿｽOnCloseｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｪｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽﾅはまゑｿｽForm2ｿｽﾍ托ｿｽｿｽﾝゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ不ｿｽ合ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Form2ｿｽｿｽCloseｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅはｿｽｿｽｿｽｿｽｿｽｿｽﾉ残ｿｽｿｽｿｽｿｽｿｽﾜまでゑｿｽｿｽB
ｿｽiCloseｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽShowｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾌまま表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽj
ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾈ外ｿｽﾅはゑｿｽｿｽﾌようｿｽﾈ仕ｿｽlｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽOnDestroyｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、Form2ｿｽｿｽOnCloseｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽRelease;ｿｽｿｽﾄゑｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ趣ｿｽｿｽuｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽｿｽvｿｽｿｽ
Form2ｿｽｿｽOnDestroyｿｽﾅゑｿｽｿｽｿｽoｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ
Form1ｿｽｿｽprotectedｿｽｿｽ
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽ
procedure TForm1.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (Operation = opRemove) and (AComponent is TForm2) then
begin
Form2 := nil;
end;
end;
ｿｽﾌようｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌｿｽｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽForm2ｿｽｿｽｿｽｿｽｿｽSｿｽﾉ破ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾅ呼ばゑｿｽﾜゑｿｽｿｽB
ｿｽﾓゑｿｽｿｽｿｽ 2006/08/23(ｿｽｿｽ) 14:16:32
ｿｽｿｽｿｽﾓ、ReleaseｿｽｿｽForm2ｿｽｿｽReleaseｿｽｿｽﾄばなゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Release; // = Form2.Release;
end;
ｿｽﾓゑｿｽｿｽｿｽ 2006/08/23(ｿｽｿｽ) 14:18:33
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄて気ｿｽﾃゑｿｽｿｽｿｽ
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
take 2006/08/23(ｿｽｿｽ) 16:07:34
NotificationｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽ動ゑｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ再撰ｿｽｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽｿｽB
ResetｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTrueｿｽﾌとゑｿｽｿｽﾍ、Form2ｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽ
ｿｽﾄ度ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽﾎ会ｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽNotificationｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾉは、ｿｽﾜゑｿｽForm2ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽuForm2ｿｽﾍゑｿｽｿｽﾅに托ｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽv
ｿｽﾆ厄ｿｽｿｽOｿｽｿｽｿｽﾜゑｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFormｿｽｿｽNameｿｽ毎回書ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ仕ｿｽgｿｽﾝにゑｿｽｿｽ驍ｱｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
Form2ｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾎ、ｿｽGｿｽｿｽｿｽ[ｿｽﾍ出ｿｽﾈゑｿｽｿｽﾍゑｿｽｿｽﾈので気ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽForm2ｿｽｿｽCloseｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ Action := caFree;ｿｽｿｽReleaseｿｽｿｽ
ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽbｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
----------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False;
FForm2 := TForm2.Create(Self);
FForm2.Show;
end;
procedure TForm1.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (Operation = opRemove) then begin
if(AComponent is TForm2) then begin
FForm2 := nil;
if FReset then begin
FForm2 := nil;
FReset := False;
FForm2 := TForm2.Create(Self);
FForm2.Show;
end
else begin
Application.Terminate;
end;
end;
end;
end;
ｿｽﾓゑｿｽｿｽｿｽ 2006/08/23(ｿｽｿｽ) 16:41:20
Notificationｿｽﾌ抵ｿｽｿｽｿｽForm2ｿｽｿｽﾄ作成ｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽiｿｽﾜゑｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟ）
ｿｽQｿｽlｿｽj
Form1ｿｽｿｽ
inteface
ｿｽEｿｽEｿｽE
const
WM_DELAYEDEVENT = WM_APP+1;
type
TForm1 = class(TForm)
private
ｿｽ@ｿｽEｿｽEｿｽE
procedure WmDelayedEvent(var Msg:TMessage); message WM_DELAYEDEVENT;
ｿｽ@ｿｽEｿｽEｿｽE
protected
procedure Notification(AComponent: TComponent; Operation: TOperation); override; private
ｿｽ@ｿｽEｿｽEｿｽE
end;
ｿｽ@ｿｽEｿｽEｿｽE
implementation
ｿｽ@ｿｽEｿｽEｿｽE
procedure TForm1.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (Operation = opRemove) then
begin
if(AComponent is TForm2) then
begin
FForm2 := nil;
PostMessage(Handle, WM_DELAYEDEVENT, 1, 0);
end;
end;
end;
procedure TForm1.WmDelayedEvent(var Msg: TMessage);
begin
case Msg.WParam of
1:
if FReset then
begin
FForm2 := nil;
FReset := False;
FForm2 := TForm2.Create(Self);
FForm2.Show;
end
else
Application.Terminate;
end;
end;
ｿｽEｿｽEｿｽE
ｿｽﾌ様ｿｽﾉ趣ｿｽｿｽﾔ搾ｿｽｿｽUｿｽｿｽｿｽｿｽdｿｽ|ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
take 2006/08/23(ｿｽｿｽ) 19:50:31
ｿｽﾚ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄ遅ｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽLｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽzｿｽｿｽｿｽｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽﾊは托ｿｽｿｽﾟでゑｿｽｿｽｿｽｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽﾈのゑｿｽ
ｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
