类继承，public方法如何变成private方法

[notebook800]

现有基类代码：

type
    TWin_Detail_F = class(TForm)
        ...
      { Private declarations }
    protected
        is_Action: string;
        is_Function: string;
        is_TableName: string;
        is_State: string; //单记录或多记录操作状态
        is_czfs: string; //操作方式
        is_Caption: string; //标题
        is_cds_orig: TclientDataset; //原始数据
        is_cds_cz: TclientDataset; //操作用数据
        is_cds_return: TclientDataset; //操作用数据
    public
        function UF_Post(): Boolean; virtual;
        procedure UF_DataInit(); virtual;
        procedure UF_FormInit(); virtual; //初始化
        function UF_DataVerify(): Boolean; virtual; //校验
        function UF_DataSave(): Boolean; virtual; //保存
        procedure UF_DataChange(); virtual; //保存后数据交换
        procedure UF_PreDataSave(); virtual; //保存前数据交换
        function OperateData(sAction: string; sFunction: string; sTableName: string; var sCdsDate: TclientDataset; sCzfs:
            string; sState: string; sCaption: string): TclientDataset;

我想在派生类中，将public中的部分函数，移到private中定义，代码如下

type
    TPMDictUsr_Detail_f = class(TWin_Detail_F)
        ...
    private
        is_DID, is_DNM: string;

        function UF_Post(): Boolean; override;
        procedure UF_DataInit(); override;
        procedure UF_FormInit(); override; //初始化
        function UF_DataVerify(): Boolean; override; //校验
        function UF_DataSave(): Boolean; override; //保存
        procedure UF_DataChange(); override; //保存后数据交换
        procedure UF_PreDataSave(); override; //保存前数据交换

        procedure UF_FormInit2(); //数据初始化后的界面调整
    public
        // aParam1:DID   aParam2:DNM    aParam3:is_czfs     aParam4:Caption
        function UF_ShowModal(const aParam1, aParam2, aParam3, aParam4: string; aDataSet: TClientDataSet): TModalResult;
    end;

使用上面的方法，将基类中的public函数定义到private。编译提示warning
而且我可以通过其他类方法访问派生类对象中定义的private方法。奇怪。。。

访问派生类的私有方法，居然可以。

procedure TPMDictUsr_Master_f.UF_MenuClick_B; //修改
begin
    if self.icds_pm_dict.IsEmpty then exit;
    
    if PMDictUsr_Detail_f <> nil then exit;
    PMDictUsr_Detail_f := TPMDictUsr_Detail_f.Create(self);
    PMDictUsr_Detail_f.UF_ShowModal(sDID,sDNM,'mod','修改用户',icds_pm_dict);
    PMDictUsr_Detail_f.UF_FormInit;//此处可以访问私有方法。请高手们解释原因
//如果我想将基类的public方法，在派生类中变成private方法应该如何做？？？
    FreeAndNil(PMDictUsr_Detail_f);
end;

[董董]

基类public方法不能在派生类中“缩小”为私有方法，这是类继承机制固有的，不能改。但也有变通方法，就是在TPMDictUsr_Detail_f类中的私有部分定义一个TWin_Detail_F类实例，它的方法就不能被外部所访问了。

如果其他类A，和当前类B定义在同一个单元文件内，则A类就可以访问B类的私有属性或方法，既使A、B两类之间没有任何继承关系都是OK的。

[kye_jufei]

基於公有和私有的轉換繼承類。。。

[taste品味]

只能扩大

[huangheguyun]

Public是公有
private是私有
是继承类的知识，你查相关的资料

[zgplyl]

哈哈，学习了。

[L3nnon]

接分和学习啦。。

[lyhoo163]

public和private是类封存的两种不同方式，主要区别是其对外（其它类）是否可见性（调用）。
写方法时，分别在public和private写即可。多看看原码，比较一下。

[L3nnon]

学习。。学习。。
谢谢。。

[Harryfin]

DELPHI的可见性只能升不能降

[wxieyang]

没有办法可以做到lz的想法，至少在delphi7之前是做不到的。
如你一定要隐藏，那么只能是变通一下：子类重载这些public方法，然后在方法的实现部分直接写入触发异常
而在private中重新写入这些方法(注意，名称不能一样)，然后在实现体中做如下处理：

TPMDictUsr_Detail_f = class(TWin_Detail_F)
...
private
is_DID, is_DNM: string;

function UF_Post_v(): Boolean;
......
public
function UF_Post(): Boolean;override;overload;
......



function TPMDictUsr_Detail_f.UF_Post_v(): Boolean
begin
inherited UF_Post();//调用祖先的方法
//下面就是自己要在这个类中要做的事情了
end;

function TPMDictUsr_Detail_f.UF_Post(): Boolean
begin
Exception.Create('无效的调用');
end;

这样能保证子类不能调用到祖先类中的虚函数