Question

delphi 中inherited bcb用什么替换。。谢谢啊

procedure TFrmBillType.tvBillTypesCanFocusRecord(

Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;

var AAllow: Boolean);

begin

inherited;

if bUInEdit then

AAllow := false;

end;
if (ADOQuery1->State==2)
AAllow=false;

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

delphi中 inherited 作用子类调用父类中被覆盖的方法 delphi 和 c++ 语法不太一样
给你写个bcb例子

class A// 父类
{
public:
void FunA()
{
ShowMessage("fundtion 'FunA' of class 'A' called.");
}
};
class B:public A // 派生的子类
{
public:
void FunA()//覆盖父类的同名方法
{
ShowMessage("fundtion 'FunA' of class 'B' called.");
}
};
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->Caption = "父类对象调父类方法";
Button2->Caption = "子对象调子类方法";
Button3->Caption = "子类对象调用父类中被子类覆盖方法";
}
void __fastcall TForm1::Button1Click(TObject *Sender)

{
A a;
a.FunA();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
B b;
b.FunA();
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
B b;
((A*)(&b))->FunA();
//子类对象的指针强制转换为父类对象的指针 。利用该指针去调父类中被覆盖的方法
}

追问

看懂了…那我网上找到的这个语句怎么应该怎么写…谢谢

if (ADOQuery1->State==2)
AAllow=false;
我知道了。。。谢谢