如何声明Set_ReadOnly和Set_NotReadOnly这两个过程(在线等.......)

Question

谢谢啦~~~~~~~~~~`请问这两个过程怎么声明.之后我要把这段语言加进去实现.
procedure TForm1.Set_ReadOnly;
begin
     DBEdit_number.ReadOnly:=Ture;
     DBEdit_name.ReadOnly:=Ture;
     DBEdit_birth.ReadOnly:=Ture;
     DBEdit_party.ReadOnly:=Ture;
end;procedure TForm1.Set_NotReadOnly;
begin
     DBEdit_number.Set_NotReadOnly=False;
     DBEdit_name.Set_NotReadOnly=False;
     DBEdit_birth.Set_NotReadOnly=False;
     DBEdit_party.Set_NotReadOnly=False;
end;

Answer 1

不是把怎么这样.不过我已经弄明白了!