|
ｿｽ@ｿｽｿｽｿｽ^ｿｽOｿｽｿｽwｿｽ閧ｵｿｽﾄコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽwｿｽ閧ｷｿｽｿｽｿｽｿｽ@
|
ｿｽ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
Mr.X 2005/03/01(ｿｽｿｽ) 22:01:58
ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽiTEditｿｽjｿｽ動的ｿｽﾉ作成ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾂゑｿｽEditｿｽｿｽｿｽ成ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽ^ｿｽOｿｽﾍ作成ｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾔに奇ｿｽｿｽ闢厄ｿｽﾄてゑｿｽｿｽｿｽﾌで、ｿｽuｿｽﾅ鯉ｿｽｿｽEditｿｽﾌタｿｽOｿｽｿｽｿｽ成ｿｽｿｽｿｽ黷ｽEditｿｽﾌ撰ｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅ、EditｿｽﾌタｿｽOｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽEditｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽ利用ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆはでゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/01(ｿｽｿｽ) 22:43:59
Editｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽ利用ｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽwｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ?
ｿｽｿｽｿｽｿｽTEditｿｽﾅゑｿｽｿｽｿｽﾎ、Tagｿｽﾌ難ｿｽeｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、TEditｿｽｿｽRｿｽﾂ搾ｿｽｿｽAｿｽｿｽｿｽﾌ３ｿｽﾂ全ｿｽﾄゑｿｽSelectAllｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
Tagｿｽｿｽgｿｽずｿｽﾉ、ｿｽzｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽ
for i := 0 to 2 do EditArray[i].SelectAll;
ｿｽﾅ０ｿｽ`ｿｽQｿｽﾌ３ｿｽﾂゑｿｽEditｿｽｿｽSelectAllｿｽｿｽｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽﾜゑｿｽｿｽB
Editｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾅ、ｿｽｿｽｿｽg(Sender)ｿｽｿｽTagｿｽﾌ値ｿｽｿｽｿｽｿｽﾄ、ｿｽﾇゑｿｽEditｿｽﾅゑｿｽｿｽ驍ｩｿｽ判断ｿｽｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ逆ｿｽｿｽｿｽｿｽｿｽﾉはゑｿｽｿｽ黷ｼｿｽｿｽｿｽEditｿｽｿｽTagｿｽﾆ費ｿｽrｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆでゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.X 2005/03/01(ｿｽｿｽ) 23:30:56
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽ痰ｦｿｽﾎ、Edit.text(ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽ) := 'test';ｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽ^ｿｽOｿｽｿｽwｿｽ閧ｵｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽ^ｿｽOｿｽｿｽwｿｽ閧ｵｿｽﾄ、ｿｽｿｽｿｽﾌタｿｽOｿｽｿｽｿｽｿｽｿｽｿｽEditｿｽｿｽｿｽｿｽｿｽﾅに搾ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽ判定すｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAY 2005/03/01(ｿｽｿｽ) 23:45:01
>Edit.text(ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽ) := 'test';ｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽ^ｿｽOｿｽｿｽwｿｽ閧ｵｿｽﾄ趣ｿｽｿｽs
ｿｽｿｽｿｽ`ｿｽｿｽDｿｽCｿｽ}ｿｽCｿｽ`ｿｽ況ゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽD
Tagｿｽｿｽgｿｽpｿｽｿｽｿｽ髣晢ｿｽRｿｽﾆ，ｿｽｿｽｿｽﾌ，Edit.text:=XXXX ｿｽﾆゑｿｽｿｽｿｽｿｽﾌは，ｿｽﾇゑｿｽﾈイｿｽxｿｽｿｽｿｽg
ｿｽﾅ呼出ｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽCｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽ..,
ｿｽｿｽﾌ的ｿｽﾈｿｽｿｽXｿｽｿｽﾂゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ．ｿｽｿｽｿｽｿｽﾅは．
Mr.XRAY 2005/03/02(ｿｽｿｽ) 00:07:41
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
AEdit : TEdit;
begin
for i := 0 to Form1.ComponentCount-1 do begin
if (Form1.Components[i] is TEdit) then begin
AEdit:=(Form1.Components[i] as TEdit);
if AEdit.Tag=1 then AEdit.Text:='AAA';
end;
end;
end;
