菜鳥問題，我怎麽才能控制所有輸入框只能在edit,insert 時可寫？？？別的時候都設為只讀！

Question

菜鳥問題，我怎麽才能控制所有輸入框只能在edit,insert 時可寫？？？別的時候都設為只讀！

Answer 1

procedure SetConReadOnly(CurForm: TForm; Value :Boolean);
var
  I: Integer;
begin
  for I := 0 to CurForm.ComponentCount - 1 do
  begin
    if CurForm.Components[I] is TDBEdit then
      TDBEdit(CurForm.Components[I]).ReadOnly := Value;
    if CurForm.Components[I] is TBitBtn then
      TBitBtn(CurForm.Components[I]).Enabled := Value;
    if CurForm.Components[I] is TDBGrid then
      TDBGrid(CurForm.Components[I]).ReadOnly := Value;
    if CurForm.Components[I] is TDBGrideh then
      TDBGrideh(CurForm.Components[I]).ReadOnly := Value;
    if CurForm.Components[I] is TDBDateTimePicker then
      TDBDateTimePicker(CurForm.Components[I]).Enabled := not Value;
    if CurForm.Components[I] is TDBComboBox then
      TDBComboBox(CurForm.Components[I]).ReadOnly := Value;
    if CurForm.Components[I] is TDBCheckBox then
      TDBCheckBox(CurForm.Components[I]).ReadOnly := Value;
    if CurForm.Components[I] is TDBMemo then
      TDBMemo(CurForm.Components[I]).ReadOnly := Value;
    if CurForm.Components[I] is TDBLookupComboBox then
      TDBLookupComboBox(CurForm.Components[I]).ReadOnly := Value;
  end;
end;//调用
SetConReadOnly(Sender as TForm, True);

Answer 2

在輸入框的onenter 事件裡寫
if (adoquery1.state=dsinsert )or (adoquery1.state=dsedit) then
  xxx.readonly:=false
else
  xxx.readonly:=true;-----
可以寫成通用的，把其它輸入框的onenter 事件都指向它。
這樣就不用每個輸入框的onenter事件都寫一遍。

Answer 3

TO ron_xin(星雨) 
   在什麽事件下調用？

Answer 4

我一般在调用edit和insert方法的地方把想变成只读的控件的enable设成false，在post和cancel的地方再设成true

Answer 5

在edit,insert之前
//调用
SetConReadOnly(Sender as TForm, True);
在post,cancel之后
//调用
SetConReadOnly(Sender as TForm, false);