Zitat von
oki:
Mach ich's halt so:
Delphi-Quellcode:
TMyBaseControl = class(TCustomControl)
private
FfirstProperty : string;
protected
procedure Paint; override;
procedure MyCustomDraw; virtual;
end;
TMyNewControl = class(TMyBaseControl)
protected
procedure MyCustomDraw; override;
end;
procedure TMyBaseControl.Paint;
begin
inherited Paint;
MyCustomDraw;
end;
procedure TMyNewControl.MyCustomDraw;
begin
// hier alles neue ohne inherited
end;
Oder leite TMyNewControl nicht von TMyBaseControl ab, sondern führe eine neue Basisklasse für
beide ein, die ein "leeres" Paint enthält, sonst aber das gleiche leistet wie dein bisheriges TMyBaseControl.