begin
dbedit1.ReadOnly := false;
dbedit2.ReadOnly := false;
dbedit3.ReadOnly := false;
dbedit4.ReadOnly := false;
dbedit5.ReadOnly := false;
dbedit6.ReadOnly := false;
dbedit7.ReadOnly := false;
dbedit8.ReadOnly := false;
dbedit9.ReadOnly := false;
end;
이걸 for문을 이용하려면 어떻게 하나요?
> begin
> dbedit1.ReadOnly := false;
> dbedit2.ReadOnly := false;
> dbedit3.ReadOnly := false;
> dbedit4.ReadOnly := false;
> dbedit5.ReadOnly := false;
> dbedit6.ReadOnly := false;
> dbedit7.ReadOnly := false;
> dbedit8.ReadOnly := false;
> dbedit9.ReadOnly := false;
> end;
>
> 이걸 for문을 이용하려면 어떻게 하나요?
>
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if (Components[i] Is TEdit) then
TEdit(Components[i]).Enabled := False;
end;
end;
위 소스는 Edit로 한거거든요..머 님은 Edit를 DBEdit로 바꾸시면 되겠네요.
우선은 소스는 위와 같이 하면 되고요 그리고 각 Edit마다 Tag에 각각의 번호 값을 넣어주면 됩니다.
그럼..전 20000