|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
ｿｽCｿｽﾓの搾ｿｽｿｽﾚへフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽ 2009/07/24(ｿｽｿｽ) 16:33:59
ｿｽ@ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽtｿｽｿｽｿｽﾍゑｿｽTMonthCalendarｿｽｿｽﾊのフｿｽHｿｽ[ｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽﾄ難ｿｽｿｽtｿｽｿｽIｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾉ戻ゑｿｽCｿｽﾓの難ｿｽｿｽﾍ搾ｿｽｿｽﾚ（TEditｿｽjｿｽﾖフｿｽHｿｽ[ｿｽJｿｽX
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚまゑｿｽｿｽﾍ前ｿｽﾌ搾ｿｽｿｽﾚへフｿｽHｿｽ[ｿｽJｿｽX
ｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽ鼾ｿｽｿｽSendMessage(MyForm.Handle,WM_NEXTDLGCTL,0,0);
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽCｿｽﾓの搾ｿｽｿｽﾚへフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ@ｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ@ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@ｿｽﾈ会ｿｽｿｽﾍ、Form5ｿｽｿｽTMonthCalendarｿｽﾌ難ｿｽｿｽtｿｽｿｽIｿｽｿｽｿｽｿｽﾄ、Form5ｿｽｿｽNｿｽｿｽｿｽ[ｿｽY
ｿｽｿｽｿｽﾄ、Form1.Edit2ｿｽﾖフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽCｿｽﾓに移難ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅ止ｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽBTMonthCalendarｿｽﾌ難ｿｽｿｽtｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾍ擾ｿｽ閧ｭｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
----------------------------------------------------------------
procedureTForm5.Button1Click(Sender:TObject);
var
str_wk:string;
begin
g1_Birth:=MonthCalendar1.Date;
DecodeDate(g1_Birth,g1_YY,g1_MM,g1_DD);
str_wk:=IntToStr(g1_YY)+'/'+IntToStr(g1_MM)+'/'+IntToStr(g1_DD);
ifg1_Button='Form1.Button11'then
begin
Form1.Edit2.Text:=str_wk;
Form5.Close;
ｿｽ@ｿｽ@ｿｽ@ｿｽiｿｽｿｽｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽｿｽﾌコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽj
end;
end;
----------------------------------------------------------------
Manbon 2009/07/24(ｿｽｿｽ) 16:45:25
Form5.Close;
ｿｽﾌ鯉ｿｽﾉ、ｿｽﾈ会ｿｽｿｽﾅはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
SetForegroundWindow(Form1.Handle);
Application.ProcessMessages;
Form1.Edit2.SetFocus;
tor 2009/07/24(ｿｽｿｽ) 17:28:13
>ｿｽCｿｽﾓの搾ｿｽｿｽﾚへフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
WM_NEXTDLGCTLｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、wParamｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽA
lParamｿｽiｿｽﾌ会ｿｽｿｽﾊｿｽｿｽ[ｿｽhｿｽjｿｽｿｽTRUEｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
SendMessage(MyForm.Handle,WM_NEXTDLGCTL,ｿｽﾚ的ｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg.Handle,true);
ｿｽｿｽｿｽｿｽﾆゑｿｽAWM_NEXTDLGCTLｿｽｿｽｿｽKｿｽvｿｽﾈのは、ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽ
ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽ{ｿｽ^ｿｽｿｽｿｽﾌ切ゑｿｽﾖゑｿｽｿｽ正ゑｿｽｿｽｿｽｿｽsｿｽせｿｽ驍ｽｿｽﾟでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ目的ｿｽﾈゑｿｽPｿｽﾉフｿｽHｿｽ[ｿｽｿｽｿｽｿｽActiveControlｿｽｿｽﾝ定すｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽ?
ｿｽｿｽｿｽ 2009/07/24(ｿｽｿｽ) 17:29:54
ｿｽ@ManbonｿｽlｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽﾅゑｿｽAｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽﾍ移難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ`ｿｽｿｽ 2009/07/24(ｿｽｿｽ) 17:34:15
>ifg1_Button='Form1.Button11'then
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾟの行ｿｽH
ｿｽｿｽｿｽ 2009/07/25(ｿｽy) 03:29:35
ifg1_Button='Form1.Button11'then
ｿｽｿｽｿｽｿｽｿｽﾌ行ｿｽﾍ技ｿｽpｿｽIｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ厄ｿｽｿｽIｿｽﾉ厄ｿｽｿｽｿｽｿｽﾆ搾ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽvｿｽfｿｽﾇゑｿｽｿｽｿｽﾉ難ｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽ 2009/07/25(ｿｽy) 09:30:08
Form5ｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ？
ShowModalｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌ？
KHE00221 2009/07/25(ｿｽy) 11:06:58
ｿｽPｿｽｿｽｿｽｿｽ
Form1.Edit2.SetFocus;
ｿｽﾌみで移難ｿｽｿｽｿｽｿｽｿｽ
SetForegroundWindow(Form1.Handle);
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ移難ｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽ 2009/07/27(ｿｽｿｽ) 10:08:15
ｿｽ@ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ@Form1.Edit2.SetFocus;ｿｽﾅ擾ｿｽ閧ｭｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@.SetFocusｿｽﾍ難ｿｽｿｽﾍ系ｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉは付ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。Form1.ComboBox7.SetFocusｿｽﾆゑｿｽｿｽｿｽ
ｿｽﾌゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽFｿｽlｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽﾜゑｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB(m_m)
