遇到怪事了，求救,TDBEDIT.READONLY不起作用了

2014-05-20 09:01:05 253 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RTAB-map：实时高效的SLAM库 Real‐time appearance‐based mapping (RTAB‐Map)是一种基于外观的闭环检测方法，具有良好的内存管理，以满足处理大场景和在线长周期管理要求。RTAB‐Map集成了视觉和激光雷达SLAM方案，并支持目前绝大多数的传感器是一个强大的、开源的Simultaneous Localization and Mapping（SLAM）库，专为机器人和无人驾驶领域设计。它提供了一套完整的解决方案，用于构建三维地图，并在未知环境中进行实时定位与导航。 github项目地址 RTAB- 阅读详情

我有如下一段代码，就是对TDBEDIT控件的READONLY进行控制，非常简单，
但是，在运行过程中，把DOCTYPE_CODE类型改变时候，比如由STD切换到XX，
希望TDBEDIT能够写，但实际却还是只读，没办法写，跟踪时，明明执行了dbedit2.ReadOnly := false;语句
却就是没有效果，太奇怪了，从来没有遇到过这种怪事，求救了。

with zq_wkpiece do
begin
if state in [dsinsert,dsedit] then
begin
if trim(fieldbyname('doctype_code').AsString) = 'STD' then
begin
dbedit2.Color := clbtnshadow;
dbedit4.Color := clbtnshadow;

dbedit2.ReadOnly := true;
dbedit4.ReadOnly := true;
end else
begin
dbedit2.Color := clwindow;
dbedit4.Color := clwindow;

dbedit2.ReadOnly := false;
dbedit4.ReadOnly := false;
end;
end; //if state in .... then
end; //with zq_wkpiece do

...全文