|
ｿｽ@ｿｽｿｽInputQueryｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽ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
ｿｽ閧ｦ 2007/06/11(ｿｽｿｽ) 12:04:24
InputQueryｿｽﾉつゑｿｽｿｽﾄ御教ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾊ擾ｿｽﾅゑｿｽｿｽﾆ、'OK'ｿｽｿｽ'ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ'ｿｽ{ｿｽ^ｿｽｿｽｿｽﾌ選ｿｽｿｽﾆなゑｿｽﾜゑｿｽｿｽｿｽ
'ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽfｿｽｿｽ'Cancel'ｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾚ的ｿｽﾍ、ｿｽpｿｽｿｽﾅウｿｽBｿｽｿｽｿｽhｿｽEｿｽYｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛの包ｿｽｿｽｿｽｿｽoｿｽPｿｽﾎ擾ｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾈ擾ｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
Syake 2007/06/11(ｿｽｿｽ) 13:15:28
ｿｽ¥ｿｽ[ｿｽXｿｽｿｽﾅは、Constsｿｽﾅ設定さｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾌままでは厄ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ蛯､ｿｽB
ControlsｿｽｿｽInputQueryｿｽﾌソｿｽ[ｿｽXｿｽｿｽQｿｽlｿｽﾉ、ｿｽｿｽｿｽgｿｽﾅ関撰ｿｽｿｽｿｽ成ｿｽｿｽｿｽ黷ｽｿｽﾙゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Basser 2007/06/11(ｿｽｿｽ) 13:56:46
ｿｽｿｽyｿｽﾈ包ｿｽｿｽ@ｿｽﾍ会ｿｽｿｽLｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
1.Consts.pasｿｽｿｽﾊフｿｽHｿｽｿｽｿｽ_ｿｽﾉコｿｽsｿｽ[
(ｿｽｿｽｿｽﾉゑｿｽｿｽﾌデｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽｿｽC:¥MyVCLｿｽﾆゑｿｽｿｽﾜゑｿｽ)
2.ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽConsts.pasｿｽｿｽﾌ該ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ關費ｿｽｿｽ'Cancel'ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
3.<ｿｽcｿｽ[ｿｽｿｽ>ｿｽｿｽ<ｿｽﾂ具ｿｽｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽ>ｿｽﾅｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽ^ｿｽuｿｽｿｽﾌｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽpｿｽXｿｽｿｽ "C:¥MyVCL" ｿｽｿｽﾇ会ｿｽ
ｿｽｿｽｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽDelphiｿｽTｿｽﾌ場合ｿｽﾅゑｿｽ
4."C:¥MyVCL"ｿｽﾌ優ｿｽ謠ｿｽﾊゑｿｽDelphiｿｽﾌ標ｿｽｿｽｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ設抵ｿｽ
ｿｽﾈ擾ｿｽﾅ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽeｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ閧ｦ 2007/06/11(ｿｽｿｽ) 14:00:34
ｿｽ答有ｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽwｿｽEｿｽﾊゑｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽﾌ的ｿｽﾉ参ｿｽlｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽSｿｽﾒなゑｿｽﾌでゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
Syake 2007/06/11(ｿｽｿｽ) 14:33:32
>ｿｽｿｽwｿｽEｿｽﾊゑｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽwｿｽEｿｽﾊゑｿｽHｿｽHｿｽH
Basserｿｽｿｽｿｽｿｽﾌなゑｿｽ¥ｿｽ[ｿｽXｿｽ]ｿｽXｿｽﾍ関係ｿｽLｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾊゑｿｽﾌ搾ｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ案なゑｿｽ
>ControlsｿｽｿｽInputQueryｿｽﾌソｿｽ[ｿｽX
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽﾌまゑｿｽﾜでゑｿｽｿｽｿｽｿｽﾇ・ｿｽEｿｽE
SMsgDlgCancelｿｽｿｽSMsgDlgOKｿｽﾌ定数ｿｽｿｽ骭ｾｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽConsts.pasｿｽﾅゑｿｽｿｽB
ｿｽﾈので、ｿｽｿｽｿｽすｿｽｿｽﾈらこｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽRｿｽsｿｽyｿｽｿｽｿｽﾄ、ｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽｿｽ
ｿｽﾏ更ｿｽｿｽSMsgDlgCancelｿｽｿｽ'Calcel'ｿｽﾆでゑｿｽﾏ更ｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾖ撰ｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽｿｽ成ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽUsesｿｽｿｽｿｽｿｽﾎ、ｿｽﾇゑｿｽｿｽﾅゑｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
Syake 2007/06/11(ｿｽｿｽ) 14:39:50
ｿｽｿｽｿｽﾈみに・ｿｽEｿｽE
ｿｽ齒奇ｿｽｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽgｿｽﾌコｿｽ[ｿｽhｿｽｿｽInputQueryｿｽﾌ箇擾ｿｽｿｽｿｽ
CtrlｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ}ｿｽEｿｽXｿｽｿｽ|ｿｽCｿｽｿｽｿｽgｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾂ包ｿｽｿｽｿｽｿｽﾉ変ゑｿｽｿｽｿｽﾄ、ｿｽAｿｽｿｽｿｽ_ｿｽ[ｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾍ、ｿｽｿｽｿｽﾌままゑｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾎソｿｽ[ｿｽXｿｽﾉ費ｿｽﾑまゑｿｽｿｽB
ｿｽ閧ｦ 2007/06/11(ｿｽｿｽ) 15:18:28
ｿｽｿｽｿｽいｿｽｿｽﾆ有ｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ ｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽﾉ変更ｿｽｿｽ
SMsgDlgCancelｿｽｿｽ'Calcel'ｿｽﾆでゑｿｽﾏ更ｿｽｿｽｿｽｿｽB
ｿｽA ｿｽｿｽｿｽLｿｽﾖ撰ｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽｿｽ成ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽUsesｿｽｿｽｿｽｿｽﾎ、ｿｽﾇゑｿｽｿｽﾅゑｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽ關費ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽ@ｿｽAｿｽﾌ意厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽが、ｿｽ芫ｳｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
Ru 2007/06/11(ｿｽｿｽ) 15:59:48
ｿｽ齦費ｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽX
ｿｽ@
ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽ[ｿｽNｿｽﾈ包ｿｽｿｽﾉ変更ｿｽBｿｽﾏ更ｿｽｿｽｿｽﾈゑｿｽｿｽﾆ関撰ｿｽｿｽｿｽｿｽdｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽ
function InputQuery(const ACaption, APrompt: string;
var Value: string): Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽE
with TButton.Create(Form) do
begin
Parent := Form;
Caption := SMsgDlgCancelｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ModalResult := mrCancel;
Cancel := True;
SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,
ButtonWidth, ButtonHeight);
Form.ClientHeight := Top + Height + 13;
end;
ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽE
end;
Syake 2007/06/11(ｿｽｿｽ) 16:06:46
ｿｽ@ｿｽEｿｽEｿｽE
Controls.Pasｿｽﾉ以会ｿｽｿｽﾌ関撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
function InputQuery(const ACaption, APrompt: string;
var Value: string): Boolean;
var
ｿｽ@ｿｽEｿｽEｿｽE
begin
ｿｽEｿｽEｿｽE
end;
ｿｽｿｽｿｽﾌ関撰ｿｽｿｽｿｽVｿｽKｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ面倒ｿｽｿｽｿｽｿｽｿｽ轤ｱｿｽｿｽﾈ奇ｿｽｿｽｿｽ
//-----------------------------------------------------
unit Unit1;
interface
uses Windows,Forms,stdCtrls,Graphics,Controls;//ｿｽﾇ会ｿｽ
function MyInputQuery(const ACaption, APrompt: string; var Value: string): Boolean;//ｿｽﾉ宣言ｿｽｿｽｿｽｿｽB
implementation
function GetAveCharSize(Canvas: TCanvas): TPoint;
var
I: Integer;
Buffer: array[0..51] of Char;
begin
for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A'));
for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
Result.X := Result.X div 52;
end;
//ｿｽRｿｽsｿｽyｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽInputQueryｿｽｿｽｿｽｿｽMyInputQueryｿｽﾉ変更ｿｽｿｽｿｽｿｽｿｽB
function MyInputQuery(const ACaption, APrompt: string;
var Value: string): Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
try
Canvas.Font := Font;
DialogUnits := GetAveCharSize(Canvas);
BorderStyle := bsDialog;
Caption := ACaption;
ClientWidth := MulDiv(180, DialogUnits.X, 4);
Position := poScreenCenter;
Prompt := TLabel.Create(Form);
with Prompt do
begin
Parent := Form;
Caption := APrompt;
Left := MulDiv(8, DialogUnits.X, 4);
Top := MulDiv(8, DialogUnits.Y, 8);
Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
WordWrap := True;
end;
Edit := TEdit.Create(Form);
with Edit do
begin
Parent := Form;
Left := Prompt.Left;
Top := Prompt.Top + Prompt.Height + 5;
Width := MulDiv(164, DialogUnits.X, 4);
MaxLength := 255;
Text := Value;
SelectAll;
end;
ButtonTop := Edit.Top + Edit.Height + 15;
ButtonWidth := MulDiv(50, DialogUnits.X, 4);
ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
with TButton.Create(Form) do
begin
Parent := Form;
Caption := 'OK';//ｿｽｿｽｿｽｿｽｿｽｿｽ
ModalResult := mrOk;
Default := True;
SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ｿｽ@ｿｽ@ButtonWidth,
ButtonHeight);
end;
with TButton.Create(Form) do
begin
Parent := Form;
Caption := 'Cancel';//ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽ
ModalResult := mrCancel;
Cancel := True;
SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,
ButtonWidth, ButtonHeight);
Form.ClientHeight := Top + Height + 13;
end;
if ShowModal = mrOk then
begin
Value := Edit.Text;
Result := True;
end;
finally
Form.Free;
end;
end;
//-------------------------------------------------------
ｿｽAｿｽﾍゑｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽﾊで使ｿｽpｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽｿｽｿｽLｿｽｿｽｿｽ驛ｿｽjｿｽbｿｽgｿｽｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾆは別に保托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽ_ｿｽ[
ｿｽｿｽCｿｽﾓに鯉ｿｽｿｽﾟてゑｿｽｿｽｿｽｿｽｿｽｿｽﾌフｿｽHｿｽｿｽｿｽ_ｿｽ[ｿｽﾉゑｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽKｿｽｿｽｿｽﾈ厄ｿｽｿｽOｿｽﾅ保托ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽBｿｽ痰ｦｿｽｿｽMyDialogs.pasｿｽﾈど・ｿｽEｿｽE
ｿｽｿｽｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾅゑｿｽｿｽﾌ関撰ｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽuｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽvｿｽﾌ「ｿｽv
ｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌ追会ｿｽｿｽvｿｽﾅゑｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽﾅは、ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽvｿｽｿｽｿｽｿｽuｿｽｿｽｿｽjｿｽbｿｽgｿｽﾌ追会ｿｽｿｽvｿｽﾅゑｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽwｿｽ閧ｷｿｽ驍ｱｿｽﾆゑｿｽUsesｿｽｿｽｿｽﾉｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽgｿｽｿｽUsesｿｽｿｽｿｽﾉｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽｿｽﾄゑｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
(ｿｽｿｽLｿｽﾌ暦ｿｽﾅゑｿｽ MyDialogs )
Usesｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽﾅ記ｿｽqｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽﾈりがｿｽgｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽUsesｿｽｿｽｿｽﾍゑｿｽｿｽﾌ場合ｿｽﾍ、interfaceｿｽﾟでゑｿｽimplementationｿｽﾟのどゑｿｽｿｽｿｽ
ｿｽﾅゑｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽ成ｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽ他のプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾅゑｿｽgｿｽpｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ作成ｿｽｿｽｿｽﾜゑｿｽｿｽB
Syake 2007/06/11(ｿｽｿｽ) 16:42:33
ｿｽｿｽｿｽｿｽｿｽmｿｽﾌ趣ｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾈみにフｿｽHｿｽ[ｿｽｿｽｿｽｿｽVｿｽKｿｽ成ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾉ、interfaceｿｽﾟゑｿｽUsesｿｽｿｽｿｽｿｽ
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ追会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽAControls.pasｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽInputQueryｿｽｿｽｿｽgｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽeｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽFormｿｽﾉ配ｿｽuｿｽｿｽｿｽｿｽﾎ、ｿｽKｿｽvｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽUsesｿｽｿｽｿｽﾉｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅ追会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽADayOfｿｽｿｽMonthOfｿｽﾈゑｿｽDelphiｿｽﾅ提供ゑｿｽｿｽｿｽｿｽﾖ暦ｿｽｿｽﾈ難ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽeｿｽBｿｽｿｽ
ｿｽｿｽｿｽﾍ、UsesｿｽｿｽｿｽｿｽDateUtilsｿｽｿｽﾊ途ｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ記ｿｽqｿｽｿｽｿｽﾈゑｿｽｿｽﾆ使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽDateUtils.pas(ｿｽｿｽｿｽjｿｽbｿｽg)ｿｽﾍ、ｿｽｿｽｿｽﾌ難ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽeｿｽBｿｽｿｽｿｽｿｽﾜとめて記ｿｽqｿｽｿｽ
ｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB(ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽHelpｿｽｿｽDateUtilsｿｽｿｽQｿｽﾆの趣ｿｽ)
ｿｽｿｽｿｽﾉゑｿｽAｿｽｿｽｿｽｿｽｿｽ処暦ｿｽｿｽﾖ撰ｿｽｿｽｿｽﾜとめゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphiｿｽﾅ提供ゑｿｽｿｽｿｽ驍ｱｿｽﾌ様ｿｽﾈｿｽｿｽ[ｿｽeｿｽBｿｽｿｽｿｽｿｽﾜとめゑｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽﾍゑｿｽｿｽｿｽdｿｽgｿｽﾝゑｿｽ
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾉ追会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽUsesｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅ使ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽB
ｿｽﾅゑｿｽAｿｽｿｽｿｽgｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽﾍ、ｿｽｿｽｿｽgｿｽﾅプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾉ追会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ
ｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽﾉ・ｿｽE
ｿｽ閧ｦ 2007/06/11(ｿｽｿｽ) 18:08:24
unit DialogsｿｽﾉコｿｽsｿｽﾘゑｿｽｿｽﾄｿｽAｿｽﾌ搾ｿｽﾆゑｿｽsｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子ｿｽfMyInputQueryｿｽfｿｽﾆなゑｿｽﾜゑｿｽｿｽB
Usesｿｽﾟには、Dialogsｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽﾅ追会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ....ｿｽj
unit Dialogsｿｽﾉ追会ｿｽｿｽｿｽｿｽｿｽﾆダｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽﾈにゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
syake 2007/06/11(ｿｽｿｽ) 18:24:45
>unit DialogsｿｽﾉコｿｽsｿｽﾘゑｿｽｿｽﾄｿｽAｿｽﾌ搾ｿｽﾆゑｿｽsｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Dialogs.pasｿｽﾌ抵ｿｽｿｽﾉコｿｽsｿｽyｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH
ｿｽﾇゑｿｽｿｽIｿｽｿｽｿｽｿｽﾈ趣ｿｽｿｽｿｽｿｽｿｽﾄはゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBDialogs.pasｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽｿｽ轤､ｿｽﾈゑｿｽﾄ、ｿｽｿｽｿｽｿｽﾄのほゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽeｿｽｿｽ謔ｭｿｽﾇゑｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ(^_^;)
Syake 2007/06/11(ｿｽｿｽ) 18:45:08
ｿｽ@ｿｽﾌ、ｿｽVｿｽKｿｽﾅｿｽｿｽjｿｽbｿｽgｿｽｿｽ成ｿｽｿｽｿｽ驍ｪｿｽﾓ厄ｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽvｿｽｿｽｿｽuｿｽVｿｽKｿｽ成ｿｽvｿｽｿｽｿｽuｿｽｿｽｿｽjｿｽbｿｽgｿｽvｿｽﾅゑｿｽｿｽB
ｿｽﾅ、ｿｽVｿｽKｿｽ成ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽjｿｽbｿｽgｿｽﾍで念ｿｽﾌゑｿｽｿｽｿｽ
unit Unit1;
interface
//-----ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
implementation
//-----ｿｽﾌ間ゑｿｽ
end.
ｿｽ@ｿｽｿｽinterfaceｿｽﾌ趣ｿｽｿｽﾌ行ｿｽｿｽｿｽｿｽﾅ終ｿｽsｿｽﾌ記ｿｽqｿｽﾜでゑｿｽRｿｽsｿｽyｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ擾ｿｽﾅ、ｿｽAｿｽﾌ搾ｿｽﾆゑｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ閧ｦ 2007/06/11(ｿｽｿｽ) 21:16:52
ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Syakeｿｽｿｽｿｽお手数ｿｽｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾎ、ｿｽﾈ単ｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾗ具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
