请问在父类的代码中如何阻止子类中代码的执行？

siaosa 2003-10-17 09:35:39

请问在父类的代码中如何阻止子类中代码的执行？
例如：
TForm1.OnClick(Sender:TObject);
begin
if XXXXXXX then
....... // 防止执行子类中的代码
end;

...全文

70 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

Hewin 2003-12-12

打赏
举报

樓主的需求并不一定要你所說的那樣來解決問題!

通常是這樣來實現:
將你的
TForm1.OnClick(Sender:TObject);
begin
if XXXXXXX then
....... // 防止执行子类中的代码
end;

的Onclick(Sender:Tobject) 改為靜態, 另寫一虛擬方法如: DoOnclick(Sender:Tobject);virtual;
子類將DoOnclick 做override
父類就可以這樣寫
if not XXXXXXX then
DoOnclick // 防止执行子类中的代码

XXSingle 2003-10-30

打赏
举报

只能向父类宴请执行条件，执不执行由子类决定

vcshcn 2003-10-30

打赏
举报

有2种情况
1.先执行父类代码，再执行子类代码：结果当然没有阻止，因为父类没阻止住，子类执行了
2.先执行子类代码，再执行父类代码：结果是没有阻止，因为子类先执行了

结果就是不可能

lxpbuaa 2003-10-23

打赏
举报

搂住问题描述不够清楚，不过这种想法当然是可行的，即所谓“先见之明”。根据实际情况可以有多种做法。比如：
1、父类设置条件，子类根据条件判断，决定是否执行相应代码。

TParent = class
procedure OneProc(var CanGo: Boolean); virtual;
end;

TChild = class(TParent)
procedure OneProc(var CanGo: Boolean); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TParent.OneProc(var CanGo: Boolean);
begin
CanGo := ClassType.ClassNameIs('TParent'); //如果是通过子类而不是TParent本身调用方法OneProc，则设置CanGo = False;
end;

procedure TChild.OneProc(var CanGo: Boolean);
begin
inherited;
if CanGo then ShowMessage('go');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
CanGo: Boolean;
begin
with TChild.Create do
begin
OneProc(CanGo);
Free;
end;
end;

2、在父类代码中生成（静态）异常。如：
TParent = class
procedure OneProc; virtual;
end;

TChild = class(TParent)
procedure OneProc; override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TParent.OneProc;
begin
if not ClassType.ClassNameIs('TParent') then
Abort;
end;

procedure TChild.OneProc;
begin
inherited;
ShowMessage('go');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TChild.Create do
begin
OneProc;
Free;
end;
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

delphi_xizhousheng 2003-10-22