Editor窗体根据编辑状态设定控件状态

.繼承TfrmCustomEditor窗體要對新增/修改狀態發生變化時作相應處理應用BOBrokerStateChange事件

 

例：

procedure TfrmPersonEditor.BOBrokerStateChange(Processor: TSmartProcessor);
var
    bEditing: Boolean;
begin
    bEditing := Processor.State in [psInsert, psEdit];
    //
    edtOtherLanguage.Enabled := bEditing and Self.OtherLanguage;
    aAddPhoto.Enabled := bEditing;
    aDelPhoto.Enabled := bEditing;
end;