|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
TEditｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽOｿｽt 2006/06/26(ｿｽｿｽ) 15:42:29
ｿｽｿｽｿｽLｿｽﾌようｿｽﾉコｿｽ[ｿｽhｿｽｿｽﾅ色ｿｽｿｽﾏ更ｿｽｿｽｿｽﾄゑｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽﾉ費ｿｽｿｽfｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
TEdit.Font.Color:=clWhite;
ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾈどの設抵ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ髟費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ}ｿｽ}ｿｽｿｽ 2006/06/27(ｿｽｿｽ) 17:54:21
ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ。
Edit1.Font.Color:=clRed;
ｿｽﾜ熱 2006/06/28(ｿｽｿｽ) 10:47:31
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽB
ｿｽSｿｽｿｽｿｽｿｽEdtiｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
forI:=1toComponentCountdobegin
ifComponents[I]isTEditthenbegin
(Components[i]asTEdit).Font.Color:=clWhite;
end;
end;
ｿｽOｿｽt 2006/06/28(ｿｽｿｽ) 12:58:24
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽfｿｽBｿｽZｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾌエｿｽfｿｽBｿｽbｿｽgｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾉは？ｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ}ｿｽ}ｿｽさゑｿｽAｿｽﾜ熱ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽp 2006/06/28(ｿｽｿｽ) 13:27:14
ｿｽﾒ集ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽAPanelｿｽﾅ托ｿｽpｿｽｿｽｿｽﾗゑｿｽｿｽB
ｿｽｿｽH 2006/06/28(ｿｽｿｽ) 15:55:25
>ｿｽuｿｽfｿｽBｿｽZｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾌエｿｽfｿｽBｿｽbｿｽgｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽ[ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾉは？ｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾈプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾍ、DelphiｿｽWｿｽｿｽｿｽｿｽVCLｿｽﾉはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ抵ｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽTｿｽｿｽｿｽﾎゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽﾍ知ｿｽｿｽﾜゑｿｽｿｽｿｽB
ifEdit1.Enabledthen
Edit1.Font.Color:=clWindowText
else
Edit1.Font.Color:=clBlue
Edit1.Enabledｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾅ、ｿｽFｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽB
ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽQ 2006/06/28(ｿｽｿｽ) 22:21:34
EditｿｽｿｽEnabledｿｽｿｽFalseｿｽﾌ趣ｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽﾉグｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾌゑｿｽWinControlｿｽﾌ仕ｿｽl...ｿｽﾈので、EditｿｽｿｽPanelｿｽﾉ乗せｿｽﾄ、ｿｽｿｽｿｽｿｽPanelｿｽｿｽEnabledｿｽｿｽﾘり換ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽH 2006/06/28(ｿｽｿｽ) 23:41:20
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAReadonlyｿｽﾆ奇ｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾂ擾ｿｽﾌｿｽｿｽXｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
>WinControlｿｽﾌ仕ｿｽl...
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで、ｿｽｿｽｿｽﾌ仕ｿｽlｿｽ無趣ｿｽｿｽｿｽｿｽｿｽDisableｿｽｿｽﾔのフｿｽHｿｽｿｽｿｽgｿｽFｿｽﾏ更ｿｽｿｽｿｽ@
VCLｿｽ無趣ｿｽｿｽｿｽｿｽｿｽﾌで、DisableｿｽｿｽﾔでゑｿｽAEdit.Enabled=TrueｿｽﾉなゑｿｽﾜゑｿｽｿｽB
procedureTForm1.Button1Click(Sender:TObject);
var
wstyle :Integer;
begin
ifEdit2.Tag=0thenbegin
wstyle:=GetWindowLong(Edit2.Handle,GWL_STYLE);
wstyle:=wstyleorWS_DISABLED;
SetWindowLong(Edit2.Handle,GWL_STYLE,wstyle);
Edit2.Font.Color:=clRed;
Edit2.Tag:=1;
end
elsebegin
wstyle:=GetWindowLong(Edit2.Handle,GWL_STYLE);
wstyle:=wstyleANDnotWS_DISABLED;
SetWindowLong(Edit2.Handle,GWL_STYLE,wstyle);
Edit2.Font.Color:=clYellow;
Edit2.Tag:=0;
end;
end;
ｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽﾝゑｿｽ 2006/06/28(ｿｽｿｽ) 23:43:50
ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽJVCLｿｽｿｽTJvEditｿｽｿｽｿｽｿｽDisabledTextColorｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅ設抵ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。
ｿｽOｿｽt 2006/06/30(ｿｽｿｽ) 12:41:23
ｿｽdｿｽlｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾏ更ｿｽｿｽｿｽﾄ色ｿｽｿｽﾏ更ｿｽｿｽｿｽ驍ｱｿｽﾆは厄ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ理会ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾊな包ｿｽｿｽ@ｿｽﾅ簡単ｿｽﾉでゑｿｽｿｽｿｽｿｽｿｽｿｽﾈのは、ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽQｿｽｿｽｿｽｿｽﾌ案でゑｿｽｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
