TMSWEBCORE的继承
比如有一个界面的基类TBaseForm = class(TWebForm)
这里放了一些按钮和行为
里面有
public
procedure DoLogin(AUser,APassword: string); virtual;
procedure DoSignup(AUser,APassword: string); virtual;
我们要继承他然后添加一些新的按钮和新的时间,可以使用
TInheritedForm = class(TBaseForm)
继承以后,你会发现基类在界面上的按钮什么的可视控件全都在新的这边也显示出来了。
然后覆盖
public
procedure DoLogin(AUser,APassword: string); override;
procedure DoSignup(AUser,APassword: string); override;
实现:
procedure TInheritedForm.DoLogin(AUser, APassword: string);
begin
inherited;
end;
procedure TInheritedForm.DoSignup(AUser, APassword: string);
begin
inherited;
end;