Jo, dass ist mal Pech. Dachte ich mir schon, war mir aber nicht sicher. Dann muß ich mir was anderes einfallen lassen.
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;
Dank und gruß oki
[edit] Lücken aufgefüllt
[/edit]